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パーソナル コンピュータでの 初心者 用 プロ グラ ミ ン グ 言語で ある 

BaSIC (Beginner's All purpose Symbolic Instruction し ode) 言 

語 は， コンピュータに なじみの なかった 方に でも 容易に プロ ダラ ミ 

ン グが 可能に なると される 言語です . 

しかしながら， 難解な 専門用語が 次々 と 出て 来る 解説 害で は， ― 

念 奮起して 理解しょう とした 意志が 途中で 挫折して しまいます. 
そこで， 本 「ユーザーズ マニュアル F-BASIC 人 門」 は， 科学 

技術 分野での マン ガ 家と して 活跺 されて いる 緒 方 健 二 氏に， 全体の 
W 成， 内容に ついて 全面的に 依 #fi しました. また， 理解 を 助ける た 
めの イラスト を 水 谷 たけ子 氏に 描いて いただきました. 

本書 は， 全くの 初心者 を 対象と した 富士通 パーソナル コンビ ュ一 

タ FM シリーズ 用 F-BASIC 人 門 害で あ'）， F-BASIC を^ 解 さ 
れた 段階で は， 別冊の 「F-BASIC 文法 Sf」， 及 ひ' 「ボケ ッ トブッ 

ク J を 御 利 ffl くださる と， プログラムの 作成， エラーの W 処^に 有 
効と 考えます. 

昭和 58 年 8 月 
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？; 1 パーソナル コ ン ピュ一 タ FM シリ一 ス' に 



は. FM_7, FM- 8. FM— 11 と 利 W の 

に応じて 各 H: の懊 M: が しっています. いすれ もお- 
新の エレクトロニクス 技術が^ 使され た， ^性能 

で コスト 'パフォーマンスの 優れた パーソナル コ 
ン ビュー タ （以後 パソコンと 略す る ことにします) 
です. そして， あなたの 仕事 や 勉強の f- 伝いに. 
あるいは コンピュータ ゲームな どの * しみの 相手 
としても， 极ぃ ^ い 機械に なって います. 

FM シリーズ は， 超 大形 コンピュータから 中， 
小形， ミニコン 等々 さまざまの コンピュータ や 各 
M (の iifl 信 情報機器 を 産み出し てきた 富士通が， 最 
新の エレ ク ト ロニ クス 技術の 枠 を 集めて 作り 上げ 

た パソコンです. 

パソコン とはいえ， 大きな コンピュータ 装 B に 
も ft けない ほど 《 性能の 機械です から， 数多くの 
機能 を 持って おり， その 扱い方に ついては一 通り 
の 知 通 を 持って いただか なく て はなり ません. 

でむ, その 仕事 はこの 本に おまかせく ださい. 

基本的な 重要な 使い方から 顺に 述べて あります か 

ら， 何の 予備 知緻 もな く， パソコンに 接する のが 

W めての 方で も顺を 追って^ん でい けば， 次第に 

その 扱い方 やその 活用の 仕方 か 理解で き もように 

なって います. この 本 を ^ み， 実！^ に FM シリ一 
ズの パソコン を 扱って みれば， これらの «械 は. 

あなたの 意の ままに 動かせる ようにな るに 違 い あ 
りません. これ を 元に， あなた 身が 削 造した パ 
ソコン 活用 法 を 楽しんで く ださい. 
なおこの 本で は， ^本 的で IR 要な 命令 やその 使 



い 万 はすべ て 取り上げ ています か. あらり 
を 網羅した 命令の 扱い や， より 高度な 使い方に つ 
いて は， 別の マニュアル を 参照して ください. 



に FM — 7 を 中心に ^かれて います 力、'， F 
M シリーズ は 兄弟の ような 閱係 にある ため， FM 
一 8 や FM — 11 についても， その ほとんどの 部分 
は 共通に 利用で きます し， コンピュータに 対する 



^令の! fc まりで ある プログラム は， 別の 機 M: でも 
共通に 利用で きます. しかし， この 中の一 部分に 
は， FM — 7 または 8 あるいは 11 でし か 利用で き 
ない 使い;/ も あるた め， このような^合に は その 
つど ことわり ^きがして あります. 

この 本 は， パソコン を 自分の 意の ままに 働かせ 
るた めの， もっとも^ 车 になる BASIC という， コ 

ン ピュー タに衬 する 命 令の 与えん-の 力-法 （プ ログ 

ラム tUft といい， FM シ リース' では F- BASIC と 
いう） を 中心に 解^して あります. 

FM シ リース' を， F — BASIC 以外の な 法で (ft か 
せる こと はもち ろんで きます 力'' ， その^ 細に つい 
て はこの 本で はお^し ます. たた'， F— BASIC に 

これらの 方法 を tft ハ させて 働 かせる^ 合に ついて 

は， w 単に 触れる ことにします. 

では これから， FM シリーズ バソコ ンの 世界に 
入って いく ことにします. 



1.1 



^ I 

FM シリーズの 構造 



F — BASIC と は どん な も のか を^べ る ^に， ま 
ず FM シ リーズの 內部 は， いったい どのよ う 
になって いるの か を， 図解に よって 示します. も 
ち ろん， これらの 図 は 理解 を 助ける ための ィ ラス 
ト なので， 正確な 構成 図に ついては， 別の 《 料に 
よってく ださい. 

これらの FM シリーズ パソコン は， いずれも 堪 
本 的に は问じ 構成に なって います. これらの 構成 

図 を a て も わかる ように， いろいろと 便利な 機能 
が « わって おり， 多くの 待 s を 持った パソコンで 

す。 そして， そのこと は， 実際に FM シ リース' に 

接し， 利坩 していく ことにより， さらに 実憨 とし 
て 体験す る ことができ るで 
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FH-11 の flhi 




パソコン は， あの 小さな 箱の 屮に， 全部 * 計す 

ると， 数百 万倜 にもの ぼる', お f-回 路尜 f- が 詰まつ 

ていて， その 1/2〜1/3 は トランジスタです. 
まだ 半導体 技術が 確立され ていなかった 以前 は， 

% 在の トランジスタに 相当す る が， 数十 本 
も fit われて いた 装 art という と， Ais: な ガ 門 技術 を 
持った 人でなくて は 扱えない 機械で あ')， &バ 本, 
数千 本の 真空 狞を 使った' ぶ 用 的な 装 is は， この 世 

に 存在し なかった といえ ます. 扱いが 困雔 な だけ 

でな く， ぼう 大な 1K 力 を 必要と し， 何よりも 真空 
^の 寿命が 短いた め. 使って いるよ リ^ 理 してい 
る 時間の 方が 長い， という 結果に なって しまう か 
ら です. 

しかし， 今は逾 います. IC や LSI という 小さ 

な W 子 部品の 中に， ヒ述 のよう なば く 大な 量の 霄子 

SI; 品が 結め 込まれ， ごく わす かな IE 力で fttt: する， 
半永久的 W おの 装;? 7 か IftWii 格で 作れる よ う にな リ 

ました. この It くべき ％ ^は. 基本的な 能力の お 

上 だけでなく， 使いやす さとい う « 能まで も， た 

く さん 取り 人れ る ことができ るよ うにな りました. 

今まで 人間の やる 仕事と 思われて いた 部分まで, 

械が A 動的に やって くれる 機能 を 持った のです. 

ガ 門 家で も ない 人 力'' ， こ の ffiJt な 機械 を 自由に 扱 

える ようにな つたの は， その 成 * です. FM シリ 

—ズ は， そのような が 至る ところに なされ. 

fi? く ほど 使いやすい 機械に なって いる こと は. 他 
と比べて みれば ただちに おわかりいた だける でし 

よ i • 

なお， ここでい う i^JIoifigx^d £[rcuit 
，回路） と は， 小さな 半導体 （シリコン 板） の 上 
に， た く さんの [01 路素子 をぎ つ し り と; ff せ * めて一 
体 化した « 子 部品の ことで， LSI (Large Scale 
Integrated Circuit 大規模!^ 回路) と は, IC 
の 中で も， 数千〜 数十 万侗 と， よりたく さんの 回 
路 素子 を 詰め込ん だもの をい います. 

圈 ところで. こんなに たくさんの トランジスタ 
は， いったい どんな 動き 方 をして いるので しょう 
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1 — J 









かク WJ 1 おにい つてし まう と， その 多く は スィッチ 

のよう な 役割 を 果たして います. つまり 'fit 流を淤 

したり 流さなかったり. « 庄を 伝えたり 0 にした 
リ. スィッチの ON. OFF と间じ 仕事です. 
コンピュータの 中には， このような 特殊な スィ 

ツチが 無数に 並んで いて， 人間 か 指示した 命令に 

したがって. n 動的に 頫序 正しく ON, OFF の 

«Jf1-: を « り 返して いるので す. 
したがって， そのような 回路 を 流れる tit 気 信号 

も. 全て 流れて いるかい ないか， つまり 1 か 0 か 

によって 動いて います. そこで， コンピュータ は 

このような 動きに 纣 C する 2 進数で 動いて いる， 
といい かえる ことができる のです. 

たとえば， キ一 ボードの キー を 押す と， その キ 
—の スィッチが ON になり， その 文字に 対応す る 
何 桁 かの. 2 進数の 信号 を 発生す る 问路に 伝えら 
；ニ なって います. 



圏 コンピュータの 内部で 動き回る 2 進数 は， 1 
桁ず つ 扱って いたので は， 時間が かか りすぎ る た 
普通 は 何 桁 か を まとめて， 同時に 扱う 場合が 
、のです. 2 進数の 信号 1 桁 を， コンピュータ 



では 1 ビット （lbit) といい ます. たとえば， 4 
^£^J|^ なら 4 ビッ トの 信号と いった 具 合です a 

そ、 して 8 ビ？ ト のこと^ r gt^TT? 丄ト 

といい ます. 1 バイト は， コンピュータに とって， 
もっとも 《 本になる 数の 集まり だからです. たと 

えば， FMx リーズで は， データ や 命令 を. 基本 
的に は 1 バイ ト 琳位 で まとめて 扱います し， WW 
が どこに あるか を 示す アドレス （番地） の悄 報に 
は， 2 バイ トか利 W されます. 

それにしても， 2 進数 は 1 と 0 との * まりで あ 

るた め. lOii 数に なじんで いる 私達に とって は， 
扱いに くい 数 ffi です ね. そこで， コンピュータの 

分野で は， 10進 数 ほどで はない けれど， 2 進数よ 
り 扱い やすいし. しかも 2 進数に 直す のが な. 
8進 数 や 16進 数が よく 利用され ています. 特に 16 
進数 は， 1 バイトの 2 進数 をち ようど 2 桁の 16進 
数で， うまく 表わす ことかで きる ので， 広く 利用 
されます. 

8 進数 は 1, 2， 3, …… 7, 10, 11 -… のよ 
うに， 10進& の 8 になったら 2 桁の 数字 10 になり 
ます. つまり 8, 9 という 文字 を 使って はいけ な 
いわけです. また， 16 進数 は， 10 進数の 15 まで は 
2 文字に なって は 困る ので， 表の ように 10 進数の 



10 に 当たる 数字の 文字 を A とし， 11 以下 を顺に B， 
C …… F という 文字で 代用す る ことにな つてい ま 

す. i 
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8 進数 は， 2 進数 3 桁で 1 桁 分， 16進 数 は 2 進 

数 4 桁で 1 桁 分に 当たる ことに 注意して ください. 



上 IS 4> ビット 
メ 



下 fit 4 ビ' ソ卜 
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コンピュータ は， 機械 だけあって も， ただ それ 
だけで は 何もして くれません. 機械に 与える 入 間 
の 命令が あって 初めて， その 能力 を ％ 揮 できる の 
です. 一般 に. この 機械 類の こと を ハードウェア， 
そして 機械に 与える いろいろな 命令の こと をゾフ 
トウ エアと 呼ぶ こと は， もうご 存知です ね. つま 
リ コンピュータ は， 人 問が 与える 命令 どおりの tt 
亊を する 機械であって， ^令に ちょっと でも ルー 
ル 違反が あると， 絶 吋に 思った とおりの 仕事 はし 
て くれません. 

よく SF 小说 などに 出て くるよう に， コンビ ュ 
一 タが人 問の いう こと を »« かなくな つて， 人 間 を 
征服して しまうな どと いった こと は， 少なくとも 

现 在の コンピュータ では 不可能で すし， 今 B のコ 
ン ビュー タの延 上に ある 限り. 未来の コンビ ュ 

—タ でも 考えられない ことです. 

コンピュータ は， 文卞 どお') 橄珐 したれ 部金吉 
なのです. したがって. コンピュータに 筏す るに 

は， あと は コンピュータが 適 当に 判断して くれる 
だろ う， などと いった はい 考え方 は 通用しません. 
与える 命令 は， いろいろ なせ. 味で 完全 * 欠で なく 
て はならない のです. 
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ROM(R み 出し 専用の K« 素子） 

2 進数が 16 進数に なった としても， そんな 面倒 

な 数卞 のら 列で は まっぴら だと， お考えの 方 も あ 
るでしょう. しかし， その 心配 は 無用です. コン 
ビュー タの 機能の 拡大 は， 使いやすい コンビ ユー 

タ への 変身 を 成功 させました. あなた は， 何も 2 
進 数 や 16 進数で， 命令 を 与えて やらなくても よい 
のです. 

この 本の あとの 方の ページ を， ちょっと めくつ 

てみ てくだ さい. コンピュータに 与える 命令 （ブ 
ログ ラム） らしき もの は， やさしい， 英ポ^ の * 
まりで できて いますね. そこに わからない 単賠が 

書いて あっても， ちゃんと 2( ^おがあります から， 
今 は' X にす る 必要はありません. 

コンピュータに 与える 命令 は， 人閒 にも わかり 
やすい 文字の 集まりで できて います. もちろん， 
これに は 一定の ルールが ある こと は， いうまで も 



ありません. 

しかし， それ は 意外に 簡単です. そして， この 
わかりやすい 言葉 は， そのまま では コンビ ュ一タ 
に は 理解 不能な ため， これ を コンピュータ にわか 
る霄気 信号に 自動的に 直して しまう， いわば 通訳 
に 当たる 仕事 をして くれる ソフトウェア （ブ ログ 

ラム） が 用, 《 されて います. これが， これからお 

話 を 進める F — BASIC (以下， 単に BASIC と 

いう） なのです. 

FM— 7 と FM — 8 の 場合に は， コンピュータ 

を 使いやすい ものにする ため， この ソフトウェア 

を 数 の 記饿 ffl (ROM) LSI の 中に, 记* させて， 

取り付けて あります. このように. ソフトウェア 

を ハードウェアの 中に 結め 込んだ もの を. ファー 

ム ウェアと いいます. この ファームウェアの おか 

げで， FM—8 と FM — 7 は Ht 源 を 人れ ると ただ 
ちに， BASIC の ルールに したがった 命令 （コマ 
ンド） ？$ ちの 状！ K になる わけです. そして. この 
ような 使いよ さの ための ファーム ゥ ユア は， 随所 
で 利用され ています. （FM — 11 は フロッピィ ディ 
スクに BASIC が 人って います） 
もともと， コンピュータ は 初めの 状態で は， コ 

ン ピュー タを慟 かせる のに 必要な， e 小 限度の フ 
アーム ウェア （モニタ） 以外， 何も 人って いない 

のが 好 通です. これに BASIC という 通 沢 を 入れ 
よう 力、 それ 以外の 逢った プログラム を 入れよう 
が、 それ は 使う 人の 自由 勝手と いう わけです. 

普通， コンピュータに 記憶で きる メインメモリ 
に は， 一定の 限界が あります. たとえば， FM — 



8 は 64 k バイト 以内です. そこで， 常時 BASIC 
に メインメモリの 多くの 部分 を 占領され ている と， 
BASIC 以外の プログラムで 仕事 を させよ う とす 
ると き， BASIC の 分 だけ 报を してし まいます. 



FM — 7 および FM — 8 では， そのような 場 

に は， スィ ツチの 切'） かえに よって， BASIC をメ 

イン メモリの Sfl 域から 迫い 出し， 64 k パイ トのほ 

とん ど を. ^由に W うこと もで きる ようになって 
います. （FM — 11 について は 別の マニュアル を 

参照して ください •） 



コンピュータに 何 かの 仕' K をさせる とき は， 
そのために 必要な ブロ グラム を， コ ン ピュー タの 
内部に ある Stt 装 S に， おぼえ 込ませて おかな く 
て はなり ません. このための 記 1« 装 S を， メイン 

メモリ （主 記《 装 at, または 内部 記慷装 置） とい 
います. これに 対して， たくさんの w 報 を 紀^ w 
秦 t まお く 外 》 にある 記憶 装 ffi を, 補助 妃憶装 s 

または 外部, 记使装 S といい， プログラムの 遒 行に 

e じ て, 補助 紀憶装 as と 自動的に 情報の や リ 取 リ 
をす る こと も 可能です. 

ここで， 64k バイトと いう Jifc が 出て きま 



が, コンビ ユー タの 



レ ii 



2 進数が 基本に な 



ひ 



つてい るた め， 1 k を 10 桁の 2 進数の 値， つまり 
2 10 =1024 として 考えます， 



パイ ト =1024 バイ 
64k パイ ト =65536 バイ ト 

メモリ は 慣例に したがって， このように 書き ま 
すが， 统む とき は メモリ一 と^んで ください. 



^部 I おき 装！: 



八 "7' リレ 




■nt 、ソ卜 



フロッピィ 



フロッ は玄ィ色ら 匕き ほ. ROM の 
BASIC で ほ なく フロ 、ン C? ィ lu 
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人間 ほ， 目で 見たり 耳で 音 を 聞いたり して M 報 

を 取り 人れ， 抻^ を 使って 脳に 伝えます. 脳 は そ 
の 情報 や， もともと 持って いた W 報と を 合わせて. 
いろいろ タ^と を憨 じたり 考えたり します. そし 

て， 必要が あれば， やはり 神经を 使って 口 を 動か 

して しゃべった リ， 手に ペン を 持って 文字 や 絵 を 

害いたり， 場合によって は 手足 を 制御し， 動き回 

つたり します. 

つまり， 入 間 は 頭 だけ あっても その 働き を 助 

ける 目， 耳， 口， 手， 足な どがなくて は 何もで き 
ない わけです. 

人 問の しく み を 手本に している コンピュータに 

も 目， 耳， 口， 手， 足に 相当す る ものが 《| わって 




FM-8 の 場合の バブル メ モ リ ホル ダ 部分 

います. 人力 装 S. 出力 装- 2E といわれて いるもの 
がそれ です. これら を まとめて. 人出 力 装;!！ とい 
い， また コンピュータの 周辺に S かれて いるので， 
周辺 装 3! ともい います. 

コンピュータ は， これらの ハー ドウ ユアと， こ 
れを どのよ うに 働かせる かの 指示 を 与える ソフ ト 

ウェアと 力 、 ta 力し 合って， 初めて一 人前の 锄き 
をす る ことができる のです. そこで， これら を 総 
称して コンピュータ' システム という ことむ あ, 
ます. 



入力 衮厦 



キー 水し ド' 




出力 装 8 




ジ、 ョてス ティ、、 /7 



フリン タ 




、マ、、 ^ 、、 、 



FM- 7 の キー ポー ド 





ffl 入力装置 



と レ町 能です. 



代表的な ものが， キーボードです. キー ボート' 

から コンピュータに， いろいろな 情報 を 伝えたり 

します. 機械の 制御 をしたり， コンピュータ ゲー 
ムを するとき に 便利な ジョイスティック， ブラウ 

ン 管に 表示され ている 文字 や 記号 を统み 取る， ラ 
イト ペンな ども 代表的な 例でしょう. これ 以外に 

も frMU ほ 器 や センサな どが 人力 装 ffi として 利^ 
されます. 

圏 出力装置 

代表的な ものが CRT (Cathode Ray Tube の 

略， ブラウン'? r), ブリン タ などです. これ 以外に 

も 人力 装 ffiMt*. いろいろな ttlfl の ものが 用意 さ 

れ ています し， また 自作の 出力 装 51 を 接^す る 二 



S 外部 E» 装置 

代表的な ものが バブル メモリ， カセットテープ 
レコーダ， フロッピィ ディスクです. カセット テ 
—ブ レコーダ は， 一連の ft い 命令 や データな ど を 

記 使して おくのに 適 してお り （シーケンシャル ァ 

クセス )， バブル メモリ や フロッピィ ディスク は， 
テープ レコーダと 间 様な 働き をす る 以外に， お 憶 

されて いる 情報の 中から， 必要な 都 分 だけ を 取り 
出したり， 害き 込んだり する， いわゆる ランダム 
アクセスの メモリと しても 利用され ます. これ 以 

外に， もっと 大 容量の マイクロ ディスクな ども 利 
用で きます. 



入力 装 塁 



入力^ S キ-ポ 1 "ド 



ライト や 



力 装 S 




X 丫" H3 ツヌ 




プリンタ 



CRT 





11 



1.5 


BASIC 







LIST 
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従来， コンピュータ は 特別の コンピュータ 室に 
設^され. 'お 筏の 大 jft 処 銀行の オンライン サ 

—ビス， 工場での 機械 類の 制御 ?F 理， 交通 制御な 

どに. 社会の 幅広い 分野で 活? 《 し， 専門的 知 袅 を 
身に つけた 人々 の 手に よって 運営され てきました. 

そして 今， 従来 程度の 仕^なら 《 くやって のける 
コンピュータ 力、 コンピュータ 室から 解放され， 
ご く 普通の 机の 上に ボンと 置かれて t 、 る 時代に な 
つたので す. 

パーソナル コンピュータが それです. そうな つ 

てく ると， 問敏 になる のが ソフト ゥヱァ です. も 
ち ろん， FM シリーズに 利用で きる プログラム は, 

たくさん 用意され， ちょうど^ * 用の カセット テ 
ーブ のように， 店で プログラムの 人った テ一ブ や 

フロッピィ ディ スクを ほって きて， 人力 装 ;k から 人 

れ ると， ただちに 利 W できる ようになって います. 

しかし， パーソナル コンピュータ である 以上， 
自分 専用の ブロ グラ ムが 必要に なって くる こと は 
当然です し， 既成の プログラム を 自分 向けに 手 直 
ししてから 使う， というよ うな * 合 も ありうる は 



BAS に プログラム LIST 

ずです. 

このよ うな 目的に 合って いるの が BASIC です. 
BA。I し は Beginner s All purpose Symbolic 
Instruction Code の iifl 文 T- を 取って 作られた か 
^で， もともと 大^の コンピュータ を 多くの 入々 

がそ れ ぞれ » 手に， まるで ^ 用 の コンビ ユー 

タ みたい に利甩 する TSS (タイム • シェア リン 
グ' システム） 用と して 作られた Tt さきです. 

後述のように， ただちに コンピュータ にわかる 
形式の 3 語で はなく， むしろ， ずっと 人 IH1 寄りの 

言 85 です. プログラム を作リ 終わる と， その r _i* 
どおり メインメモリに 紀 されます （もちろん そ 
のま まと はいっても， 2 進数の tff 報に は 変換され 
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ています〉 • 

そして， いよいよ プログラムの 実行 開始 命令に 

より， プログラムの 顯に BASIC によって 機械に 
わかる 言葉に 通訳され， 処理 を 進めて いきます. 
逆に， 機械に わかる 言葉から， 人間に 理解で きる 
3 葉に 直さなくて はならない 命令に 出合った とき 
は， もちろん それ も 実行して くれます. つまり， 
その都度 機械語と 人間 語との 間 を 通訳しながら， 
処理 を 進めて いく わけです. 

このような 処理の 方法に よってい るので， 初め 
から 機械語で 作られて いる ソフトウェア に比べて， 
処理の スピード は 多少 遅くなります. しかし， 実 

用 上 は 多くの場合 問 18 ないし， もし 必要なら スビ 
ードを 必要と する 部分 だけ を 機械 捂で 作って おき， 
必要に 応 じて この 部分 を 呼び出して 使ったり， そ 
れ でも だめな 場合に は. 別の 翻択 S 語 （コンパ ィ 
ラ， アセンブラ など） を 使って BASIC から 離れ， 
処理 を 進めれば よいので す. 

BASIC は， パーソナルコンピュータ 用の 言語 
として， きわめて すぐれた 数々 の 特長が あります. 

そ 9 第— は， 何とい つても 命令の 言葉 使い や， ル 
ール （文法） が やさしい ことで しょ う. また， 作 

つた プログラム をす ぐ 動作 させて みる ことができ 

るの も 特長の ^ です. 会話 型に なって いるので， 

文法 上の ルール 違反な どが あれば， コンピュータ 



は CRT を 通じてす ぐ 指摘して く れ ます. 

このよう にして， 作りながら 途中で 何回も 実行 
してみ て， 気に 人らない ところ を 修正しながら， 

次第に 完全な ものに 仕上げて い く こ と がで き る の 
です. 

コンピュータ は， いかにす ぐれた システム であ 

つても， あくまで 人間 力 ^ 使用す る 単なる 道具で あ 

り， それ以上の 何もので もありません. コンビ ュ 

—タは プログラム どおりの 仕事し かしません. も 

ち ろん， 命令 以外の 仕事 はしない からこ そ 立派な 

道具と して 通用す るので あって， 必要 以上の 仕事 
をしたら， かえって 扱い 力 < 面倒て ィも' いものに はな 

ら ないで しょ う . 

そのかわり， たとえ コンマ ^ 間違っても ，「ハ 
ハーン 人 問 様 は， 本当 は セミコロン なのに 問 遠え 
たな， 直して やろう j などと いう こと は艳 W にし 
て くれない ため. 一点の 間遠い もない プログラム を 
作って やらなくて はなり ません. つまり， コンビ 
ユー タを 生かして 使う も， 下手な 使い方 をす る も， 
それ は 全く プログラム を 作る 人 次第と いう わけで 

す. 

BASIC は. 機械に 可能な 範囲で プログラム 作 
りの 手伝い をして くれます. しかし， 内容 を どう 
する かまで は， 全く 手伝えな いのです. それ は 人 
間の 仕事 だからです. 
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いよいよ コンビ ュ一タ を 動かす 仕 It です. とに 

かく. ^源 を 人れ てくだ さい. 周辺 装 IS が ある 場 

合に は， まず S 辺 装 ffi に' « 源 を 人れ， その あとで 
コンピュータ 本体の H£ 源 を 人れ るの が 正しい やり 

方です. 切る 埸^ も コンピュータ 本体 を 切って か 

ら， 周辺 装 as を 切って ください. 

コンピュータの 《 源 スィッチ を 入れる と， 赤ラ 
ンブ （本当 は ％ 光 ダイオードで すが， この 本で は 

赤 ランプと します） が点埯 します. そして， CRT 
ヒに写 K- のよう な 文字が 出る はずです. 

謹の 部分 は 点滅して いますね. この 画 を 力一 ソ 
ル といい， キ一 ボードから キー インされ た 文字 は. 
この 位! I に 表示され ます. そして， 園 は 1 字 分 右 
に ずれます. お ffl - 杯まで 文字が まき まったら， 1 
行 下がつ て 左端に 移動す る はずです. 

もし， 同じ 文字 をた くさん 並べた ければ， キー 
を 押し 統 ければ よいので す. 

カセットテープ レコーダに， プログラムの 人つ 
ている カセッ ト テープ を 入れて ください. 次に， 
カーソル を 左端に 置いた 状 《 で， キーボードから 
LOAD "CAS0:" と 入れて くた' さい. この 文字の 

右側の 方に 違う 文字が あると， エラー （間遠い） 
となり， 正しく 動いて はくれ ません. 

ェ ？ 大文字に ならないで すって 7 コマンド 
は 小文字で も 正常に 働きます が， 大文字で 表示し 
たい 場合 は， 左' 



CAP ， キー を 押してく ださ 
い. 赤 ランプが つき， この あとから キー インす る 
文字 は， 全て 大文字になります. なお， この 状態 
で 小文字 を 出したい とき は， I SHIFT 1 キー を 
押した 状 》 で， 文字 キー を 押す と 小文字に なリま 
す. また， " な どの 記号 を 出す と き も r^HTFTl 
キー を 押した 状 想で， その キー を 押せば よいので 
す. *CAS0 ： n の 0 は 0 では な く 0 です. 




ヒなス 
いる. 



霄源 スィッチ を 入れた ときの CRT の 表示 



さ- 7 マ ゆく ゼ '0〕 

キ- もネ？ しな ふ" 52 ク J 



ニー をキ y ヲ., 
もし フ 0 a ァラ 4 あず "わ チウ ？ リさ^ 

き は， つぎのように する d 中 |= 

化の 7。a 0"7A ず "あ 7 z もみ 
粉/ざし z しまう 乂 



で'» ？を閉 かする， 

LO AP し おど 造ち に^ f ラ さが ミ 




M ,r CAS0 ： MANSE ISeii^ 




乇ぉ 【）， こ ini こ 乒リ， LOAD^eJ 
it ちに^^ さはし'、^^. 



7。0ァ7厶 作 

^eu こ渔 了" 

ために 一ぶ、 



± £ m ix 



9 




峰な ヒ "て'，^ 
ぃカぶ "し^') 

二な ^Zl) き. 




00 


f'Oi ま o オー^ー もっけ？ 5 


/ i 


ィ手は 1 7 ィ は')^ きで' る 


12 Z 


二 は 2 せ 人も^^^ '/卜け 2 




コ "は 5 エス (にも 力 2S 


(IV 


エ- は 11 アイ ii V 




ティ \i7>i<iphk^?i 
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スパイ 映画で は 007 を ォ一ォ 一セブンと 力'， ダ 
ブル ォ一 セブンな どと 称し， ゼロと ォ一 と を 明確 

に 区別す る 必要がない 場合 もあります 力、 コンビ 
ユー タで はそう はいきません. ゼロと ォ 一と は 明 
確に 逸 うのです. そこで， コンピュータの ブ ログ 
ラム を 作る 人 は， このような 間違い を 避ける ため 
に， 紙に 害く とき 表に 示す ように， 文字 を 区別し 
て 害く 習惯 になって います. あなた も 利用す るよ 
うにして ください. 

？ 問 違えて 人れ てし まいました か？ でも， 

少しも if くこと はありません. たとえば [MUSS 
キー を 押すな どして， もう一 度 入れ 直せば よいの 



て— す. あるいは， IRETURN I キ一 を 押して やつ て 

も ビー ッ という 音と 共に Syntax Error ( 文法 

上の あやまり） の 表示が 出て， あなたに 再び キー 
イン をうな がします. 

I BREAK I を 使わないで， せっかく 表示した 文字 
だから この 文字 を 脩 正したい， というの でしたら, 

右上に 並んで いる 矢印の キー を 押して， カーソル 
を 移動 させて ください. たとえば 0 と 入 {1 るべき 
ところ を， 0 と 人れ てし まったら， この 0 の 文 宇 

の 上に カーソル を 移動 させて? R ねて ください. そ 

して 0 の 文字 を 押してく ださい. 0 は 0 に 修正 さ 

れ ます. 

また LOAD を， LO^AD と 人れ てし まった 

ら， この _ (スペース という） のと ころに カー ソ 

キー を 



ルを 移動し， 右上に 並んで いる 
押してく ださい. スペース は 消えて なくなります. 
この 操作 は， スペースの かわりに 連う 文 宇， たと 
えば I という 文字が 入って いても， 同様にして i 肖 
してし まう ことができます. LOAD を LOD と 入 
れて しまったら. やはり カーソル を 移動して！） と 
おねて ください. 

TRS1 キーの 



こ キー を 押します. 



A キ一 



赤 ラン ブ が点燈 した こと を 確 12 した 後, 
と， D という 文字の 左側に A とい- 



文字が 割り込ん できます. なお， I INS I の赤ラ 
ンプ がつ いたま まにして おくと， いつまでも 割り 
込みた がり 星の 性質 を 持ち 枝け るた め， もう一 度 

m^i キー を 押して, 赤 ランプ を 消して おいて 
く ださい. 

さあ， CRT 上の 文字 は 正しくな りました ね. 
では， カセットテープ レコーダの 再生 キー を 押し 



てみ てくだ さい. テープ レコーダ は 動きません ね. 
では LOAD"CAS0:* を 入れた 後， 1 RETURN I 
キー を 押して 〈ださい. レコーダ は 動き 出します. 
ただし， この 状態 は リモコン 用の コード を 付けた 
場合の 話です. 

なお， リモコンが ついている 場合に は， モータ 
の一 時 停止 を 解除 するとき は MOTOR ON . 
1 RETURN I と すれば よ く， また MOTOR OFF 
I RETURN I で ふたたび コントロール できる よう 
になります. 

I RETURN I キー を 押す こと は. CRT 上に 表示 

されて いる 命令 を コンピュータに 伝え. その 命令 

を 実行させる こと を 意味し ます. たた' CRT 上に 表 
示されて いる だけで は， コンピュータ は， まだ 実 
行せ よ という 意味に は 受け取って いないの です. 
1 RETURN1 キー を 押して 初めて 実行せ よ. とい 
う 命令 を 受け取ります. 

I RETURN1 キー を 押す と. コンピュータ は， 
Searching という 表示 を 出す はずです. これ は， 
「探して いるよ」 という, S 味です. そして カセッ 
ト テープが 回り， 目的の プログラム を 発見す ると 
r FOUND: テープの 名前」 が 出て， テープ レコ 

一 ダに記 tt している プログラム を コンピュータに 
伝えます. コンピュータ は 記 « し 終わる と Ready 

と 表示し， 完了した こと を 告げて くれます. 

さあ， これで テープの 中に 収められ ていた プロ 
グラム は， ただちに 実行で きる 状態に なりました. 
^行の 命令 は， RUM RETURN IT 

この 状態で は， テープ は LOAD を 完了した ま 

まの 状 《 です. もし 巻き戻して おきたい 場合 は， 

コンピュータからの リモコン を 解除して から 巻き 

戾 してく ださい. また， 次の プログラム を 入れた 
い 場合 は， 巻き 戾 さずに， もう 一度 上記の 手顺で 

実行して ください. コンピュータ は， 前にお ぼえ 
込んだ プログラム をす つかり 忘れて しまい， 新し 
い テープの プログラム をお ぼえ 込みます. 

また， 巻き戻さず そのまま にして おき， 次に 使 

うとき は， LOADLREiygE を 入れた 状態で, 
巻き 戾すキ 一を 押してから， 再生 キー を 押して や 
つても よいの てす. なお LOAD した あと， 自動的 

にす ぐ 実行に 移したい とき は， LOAD "CAS0:" 
のか わりに RUN "CAS0:" としてく ださい. 
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三つの モード 



前述の ように， パソコンに フロッピィ ディスク 

などの 記 « 装置から LOAD し. 勠 かせて やる と， 
ただちに 実用に 使える プログラム は， これから も 
たくさん 市 IS される ようになる でしよう. あなた 
が 欲しい と 思う プログラム を， 全部 あなた 自身の 
手で 仕上げて しまう という こと は， 决 して 楽な 仕 
事ではありません. 必要に応じて， 人の 作った ブ 
ログ ラム を 人手す る こと も 必要な 仕事で しょう. 

しかし， 自分で 自由に 使いこなす というと ころ 
に， パーソナル コンピュータの (打ちが ある わけ 
ですから， 入手に たよった もの だけでなく， 自分 
自身で 作ったり， あるいは 既存の プログラム を， 
別の 仕事 用 に 改造した りする こと カ< 必要に なって 
きます. 

そのために は， BASIC 言語の 基本 を しつ 力' り 
身に 付けなくて はなり ません. BASIC はやさし 
い 言 瞎 です. 一つ一 っ顺を 追ってい けば， 必ず だ 
れ にも 自由に 使いこなす ことができる ようになる 
はずです. ただ， 仕事 を やらせる 手 顺は， 前述の 
ように. あなた 自身が おぼえて いかなくて はなり 
ません. 

このように， どんな ふうに コンピュータに 仕事 
を やらせる かの 手顺 のこ と を アル ゴリ ズム といい 
ます. アルゴリズムに はいろ いろな テクニックが 
あり， いかに 上手に 仕事 を 運ばせる か は， やはり 
いろいろな プログラム を 実際に 作って みたり して 
体験し， 上達し なくて はなり ません. 




たとえば， 2 X 3 という 計算 を 2 + 2 + 2 とし 
て も 結果 は 同じです ね. 1+2 + 3+ "-… +9 + 
10 を， 人間なら 11X5 とすれば 楽 だと， 考え付く 
ことができます. しかし コンピュータに は， こん 
な こと はでき ません. つまり， まずい い アル ゴリ 
ズムを 考え出す ことが 大切で あり， これが できれ 
ば あと は， BASIC 3» を 上手に 使い分けて プロ 
グラム を 作って いけば よいので あって， 時 間との 

きいになります. 

このよう にして 上手な 作り方 をす ると， 処理 時 
間が 短くな つたり， プログラムの 長さが 何分の 1 
かにな つたり する こと もあります. 前 » きがすつ 
かり 長 〈なって しまい ま した. 

コンピュータに 与える 命令の し 方に は 三つの 楝 
類が あります. 直接 モード， 間接 モード， ター ミ 
ナル モードです. それぞれ どのように 達う のか 調 
ベて みまし よ う. 



圈 直接 モード 

BASIC に 使われる 命令 用の 言葉で， いきなり 
キーボードから 人れ て やる 方法です. 命令 用の 言 
葉に は， コマンドと ステートメントと があります. 
コマンド は， 前述の ような LOAD とか RUN のよ 
うな， コンピュータ を 直接 制御して やる ための^ 令 
のこと をい い， ステートメントと は. ある 一つのれ- 
事 をさせる 命令文の ことて す. たとえば， A = B + 
C や IF A = 0 THEN 10 ( もし A=0 なら 10ft 目 
に 飛んで 行け/詳細 は 後述し ます） など も ステ一 



キー を 押す と, 



メン トの 5で す. | | 
ただちに 実行し ます. 

なお， = や + などの ように， キーの 表面上 俩 に 
害いて ある 文 宇 を 出したい とき は， | SH I FT I キ 
一 を 押しながら 目的の キ 一を 押してく ださい. 直 
接 モードに よるお^ 文の K さは， ffiA:255 文'?: で 



す. コマンド は 20&« あり， ステートメントに 使 
われる 命令 語む たくさん あります 力、 いずれも 必 
要に したがって， 说明を 進 めて いきたいと 思い ま 
す. 




圏 M 接 モード 

何 行に も わたる コ マン ドゃ ステー トメ ント でで 
きた 長い 命令です. 各行の 5fe 頭に は， 必ず 行 番号 
を 付けて やらなくて はならず， 行 番号が 付けられ 
ると， fl 動的に 間接 モードで 働く ようになります. 



この場合 は， E 接 モードと は 異なり， I RETURN 



キー を 押しても， ただちに 実行に 移される こと は 
なく， 各行が 完了す るた びに I RETURN1 キー や 
押す ことにより， CRT 上に 表示され た その 行の 
命令文が， メインメモリに 記 《 される という 仕事 
をし ます. 



もちろん， メインメモリに 収容 されても， あと 
で 修正して やる こと は 可能です. そして， このよ 
うにして でき 上がった プログラム を 実行に 移す と 



き は， RUNiRETURN ： : こよって 始ま り ます. 

なおこの 場合 も， 1 行に つき S 大 255 文字まで, 
行 番号 は 0 から 63999 ま での 桉敉が 使 えます. 



パ 



つ 7 二 口' 




*!〇 /\ -ヲ r^ETt/^v, 



20 B = S l^^TOR 

30 Z^A+8 
^0 p/? 町 Z 
RON 
% 




ターミナル モード 

パソコン を， 他の コンピュータの 端末 装;！ とし 
て 使う 場合で あり， TERM という コ マン ドを人 
れて やる と， この モードに なります. なお， いた 
ずらに TERM と 人れ ると， 制御が 外部に 移って 
しまい. 動きが とれなくなる ため， 必要な ^合以 
外 は 利用し ないで ください. 

なお， 端末 装 3£ と は， 一般に 離れた 場所に B き 
通信 回 棟で 接 tt して 利用す る 装!！ をい います. た 
とえば， 銀行の オンラインシステム では， 中央に 
ある 大ぉ コンピュータと 通信 回線で， & 支店に!！ 
いて ある SS 末 装 B と を 接 校し， 
的に一 括して できる ようになって います. 
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3*5 



リング） といい ます. ただし， ""でく くった 中 
では" は 使えません. 文字列の 終わり を 示す" と 
判断して しまう からです. 

255 字 以内なら， 別の 仕事 を 同時に やらせる こ 
とも 可能です. この場合に は， 分離お'' (コロ 
ン） を 使います. 

PRINT "3+5=": PRINT 3+5 

[SETURN1 

3+5= 
8 

初めの PRINT 文 は 文字列の 表示， 分離 ffi ゆの 
あとの PRINT 文 は， ^際に 計算 をさせる ステー 
トメ ント です. もし， 答えの 8 も 3 + 5= の あと 
に tt けて 》 かせた ければ； （セミコロン） を 使い 
ます. 

PRINT"3+5= "リ PRINT 3+5 
3+5= 8 匚 



□ 

もちろん， 8 の 前の 1 字 分の スペース は 本来な 
ら + 符号が 入るべき 場所です ね. 





さあ， それで は あなたの 作った 命令に よって， 
コンピュータ を 自由に 働かす 仕事に 取 り かか り ま 
しょう. 初めは 直接 モードです. この 命令 は， 記 
憶して おき， あとで 何回も 利用しょう という わけ 
に はいきません. このような場合に は， たとえ 1 
行の 短い 命令で あっても， 後述の 間接 モードに よ 

ら なくて はなり ません. 

CRT に 何 か を 表示せ よ， という 命令 は PRINT 
です. PRINT のか わりに？ を 入れても 同じ 結果 
を 得ます. では， PRINT を 使った いくつかの 例 
を 調べて みまし よ う. 

PRINT 3+5 I RETURN | 
8 

Ready 

Ready は 次 を どうぞ， という 意味です. 

コンピュータ は， 3 + 5 の 計算 をし， その 結果 

を 表示して くれました. 全体が 255 文字 以内なら， 

もっと 《Jt な,! 十 W し もちろん やってくれ ます. 

しかし， よく 注意して みて ください. 答えの 8 の 

前に 1 字 分の あき （スペース） があります. なぜ 

でしよう？ 试 みに + を 一に 変えて 同じ こと を や 

つてみ ましょう. 答え は 負数になる はずです. 

PRINT 3-5 1 | 
-2 

これでお わかりで すね. 前述の 1 字 分の スべ一 
スは， 正， 負の 符号が 人る 場所だった のです. た 
だ， + 符号の 場合 はいちい ち 表示す ると わずらわ 
しいので， 私達の 惯例 にしたがって， S 略されて 
いる わけです. 

では， 次の 例 はどうで しょ う ？ 

PR I NT " 3+5 " I RETURN I 

3+5 

今度 は， 計 I? せずに"" （ダブル クオ ーテ ーショ 
ン マーク） の 中の 文字 を 表示し ました. *， で 〈く 
ると， コンピュータ は その 中 を 単なる 文字 （または 
記号） としてし か 見ず， そのと おり 表示して きま 
す. このような 文字の 並び を 文字列 （または スト 
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コンピュータ では， 変数と いう もの をた くさん 

い 分けます. 数学の 問題 を 解く 場合に は， 変数 
が 三つ も 四つ も 出て くると 四苦八苦， 頭 カ^くな 
つてし まいます が， コンピュータの 変数 は 少しも 

くこと はありません. 後述す るよう に， 数 宇 や 

文字列 を 一時的に しまって おく 箱で あり. 他の 数 
字 や 文字列と 区別す るた めに， 貼って ある ラベル 
の 名称に 過 ぎない からです. 

もし 変数 名 を A とすると， A = 3+4 あるいは 
A=A+1 のように， まず 変数 名で ある A を 先に 

5? かなくて はならない 約束に なって います. ェク 
A=A+1 は. 理屈に 合わない ではない かです つ 
て？ ィ イエ. これでよ いのです. 左側の A は変& 
名， 右側 A+1 は， それ 以前の A という 箱の 中に 
人って いた 数字に 1 を 加えよ， という * 味 だから 
です. 

たとえば， 今まで 2 という 数字が A の 箱の 中に 
人って いたら， この 新しい 命令に より. 2 +1 つ 
ま り 3 という 新しい 数値が A の 箱の 中に 入り ます. 
数学で いう 変数と は 少し 違った 考え方で すね. で 
は， 実睽 にいく つかの 例 を 調べて みましょう. 

A=3 1 RETURN I (1) 
B=5 I RETURN I (2) 
PRINT A+B (3) 
この 操作の あと I RETURN 〗 キー を 押す と • も 

うお わかりで すね. 8 と 表示して くる はずです. 
コンピュータ は， （1) の 操作で A の 箱に は 3, (2) の 
^作で B の 箱に は， 5 の 数 宇が 人った こと を， ち 

やん と 記 « していて くれた わけです. では， これ 
に « いて, 

A=A+3 I RETURN | 

と 人れ てみ て. もう一 度 (3) 1 RETURN I を 繰り 
返して みましょう. 結果 は 11 と 出ました ね. もう 

5, 現在 A の 箱の 中には， 6 が 人って いる はず 
です. では， まだ 何も 定義して いない 変数 C と 加 
えてみ たら どうなる でし ようか ク 

PRINT A+C 
6 

A の 値と 同じです ね. つまり， 初めの 状態で は， 

変数の 中に 何も 人って いない， つまり 0 である こ 
と 力 <， これでお わかりいた だけた はずです. 

これらの 話 は， もちろん 直接 モード だけで はな 
く， 間接 モードの 場合に も 通用し ます. 



直接 モード は， 間接 モードの プログラム を 作つ 
ている 途中， あるいは プログラムの 実行中な ど， 
いろいろな 場合に 利用され ます. 

たとえば， 間接 モードで 作って いる プログラム 



I ベたい と き， LIST 1RETURN1 と 入れて や 

ると， プログラムが 行 番号の 小さい 方から 順に， 
次々 と CRT 上に 写し出され てきます. このよう 
な 入出力 装置との やり取り は， もちろん 間接 モー 
ド でも 実行で きます が， 直接 モードで 指示す る 場 
合が 非常に 多い のです. 

試しに， 次の 命令文 を やって みません か 9 

FOR X=l TO 10000: 
PRINT"A M ; :NEXT X 

I RETURN I キー を 押して やる と. A という 文 
字 を 10000 回 CRT 上に 表示して く る はずです. 
ェ ク いつまでも 同じ こと を やって 止まらな いつ 
て？ では I BREAK】 キー を 押してく ださい. 次 
のよう な 表示が 出て 止まります. なお， ここに 出 
て く る 命令の 烊钿 は， あとでく わしく 説明し ます. 

^^AAAAAAAAAA A 

AA A 

Break 
Ready 



OfOKX^I TO 10000 

PR/ATT rr A 




く ズ 、"づ OOOO I : 

な^で' のにむ 

ひゥ K 



Q ^ ®^<n ^ ！ニ お 

1oooo[o\ 條リ せし 

行 tt<^ ヒ いう^^, „ 

^が , 二； C は 1 す" つ： if^a し 7 ク o〇〇 

(二な おで^ぐ 

•, は^に^' ナ？ ^ひ》 )H 
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1.9 




行 番号 を 付けた プログラムの 場合， コンビ 



ュ 



タは， 通常 行 番号の 小さい 順に 実行して いきます. 
もちろん 途中に， 違った 行 番号のと ころに 進め， 
などと いう 命令が 人って いれば， それにし たがつ 
て 実行し ます. 

そこで， BASIC で プログラム を 作って いくと 

き は， 一般に 行 番号 を， たとえば 10 飛びに 10. 

20， 30， …… のよ うに 付けて やる 方法が とられ ま 

す. もし， 途中に 別の プログラム を 追加し ようと 

する ような 状 魅が 起こった とき， たとえば 行 番号 

を 15 に 取って やる と， コンピュータ は， 10, 15， 
20, …… の顺に 実行して くれる からです. 

行 番号 をい ちいち 人れ るの が 面倒な ^化 AUTO 
という コマンド を 人れ て やる と， コンピュータ は 

行 番号 を 自動的に 《 生して くれる のでたい へん 便 

利です. この 機能 を 停止させる に は, re^Ri キ 
一 を 押して やる か， 次の 行 番号が 表示され て か 

1 RETURN I キー を 押して やれば よいので す. 



AUTO [[行 番号] [，增 分 值〗] 



AUTO だけの 場合 は， 行 番号 は 10 から， 1« 分 
依が 10 で. つまり 10， 20 , 30， …… のように 行 » 
号が 表示され ますし， AUTO 100,5 と 人れ て や 
ると 100, 105. 110 , 115 …… のように 行 番号 
が 発生して きます. 

なお， すでに プログラムが 人って いる 場合に は， 

AUTO だけで はなく， 新しく 始める 行 番号 を 人れ 
て やらない と 実行して くれません. 

では， —度 LCLSJ キー を 押して 画面 をき れい 



ャ / 
レ \ 



RETURN 



RETURN I 



RETURN 



にし， 次の よ うに 

10 し ET A=10 

20 LET B=15 

30 し ET C=A+B 

40 PRINT C 

もう 意味 はお わかりで すね. LET は， 右辺の 
式の 結果 を 左辺の 変数に 代入せ よ という 意味です 
が， 省略しても よい ことにな つてい るた め， 



んな^ j に， m^B] /二 ァ。 d ゲヲ 
厶 ^+— インし マ たつ？ も， 

LIST lREr^vl^ Awt ^^^^ 1 

も ラー 度 7°07 ,/ 7A ^"CRT-blZ^jTs 
£l ^る. この ヒ^ は. 項^め" 入 札々 ゎリ 

小さい 45i^、 5 'm に ぉ她 る. 




この 本で は 《 略 する ことにします. なお， コンビ 
ュ一タ でい う 式と は， 実 啄 に 計算 式に なって いる 

場合 や， 上述の よ う に 単に 数 tt だけの 場合 も あ り 
ます. そのほか にも いろいろあります 力、 ここで 
はふれ ません. 



問 接 モード では， I RETURN! キー を 押し た だ 
けで は， 実行して くれません. 各行の あとに 
I RETURN I キー 》押 したの は- その 行 を メイン 

メ モ リ の 中に 記録させる ための 操作で 

間接 モ一ド で 実行に 移す に は RUN 
の 操作 カ 《 必要です. よく コンピュータ を 走らせる 
といい ますが， RUN からき た 7T 葉です. 本当に 
走り出したら 困って しまいます. 

さて，. この プログラム を 走らせて やる と， 結果 
は 25 と 出る はずです. エラーの 表示が あつたり， 
正しい答え を 出して くれない とき は， きっと どこ 
かに 間違いが あるから です. よく 調べて みて くだ 
さい. そして， 間遠って いたら， 新たに 間違って 
いた 行 番号 を 入れ， 止しい ステートメント による 
行 を キー インし， I RETURN I キー を 押してく だ 

さい. 今度 は 正しく 修正され た プログラムに a き 
かえられ ている はずです. 
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1 じ LSsPPlNl OV?') ヒ 3 ゥ * 本 "sFORIslTOAOsPRINT" —" $ 
= NEXT = し OCATEO， 10s FORI = l T040= f?RI NT" — , ， ； ： NEXT s し OCATE 
10, い PRtNl"T" : FnRI = n"08sJ-J+lsL0CATE";SJ + l : F>RINT'' 
l":NtXT:LOCAT £10, 10: PRINT"^" 



'70C/.S 

20 PR/IVT'^ ^IfV t ヨウお お 
3o For r= 1 丁 o^o 

邙 0 PPiWT" — "/ 
ゲ。 N£X7 I 

《0 LOCA7£ O; TO 

70 FO ゆ 1 丁 040 
10 pP/As/T"-"; 

qo A7£ 乂ァ I 

100 ム OCAT£ 70 ノブ 

110 PHW" 
150 fOR I- 1 To^ 




^1^% 1 <D 7fj だ 力つ 7の7" 

7/1- 

ニ^で' もま"^ く^ If かゆ". メ^ 

二 《^& 1 可^ % 
わず、 リ ( ) 7 o a フ" 7^ つ'' く リ&? 3 

iz ィさリ のおうな フ。 ロフ" ラ厶 な' め オリに 



二め オズ、, わ ^リ やす U レ， 卞^£ %. 



念 のために， プログラム をもう 一度 CRT 上に 
表示 させて みて ください. LIST! RETURNl X' 
プログラム を 表示し ます. いのあった 行 は， 
たった今 人れ た 正しい 行に 直って いる はずです. 
•ftitif もに 人れ た プログラム 力、 常に 斩 しい プロ 
グラムと して 保存され るので す. 

この こと を 逆に 利用し， たとえば 10 1 RETURN I 
と 押して やる と， 行 番号 10 に は 何も 人って いない 
ことになる ため， i 肖え てし まいます. 行 番号 だけ 
取って あとに 何も 人れ ないで おくと， 行 番号 も 消 
えてし まう ように 作られて いる わけです. 

NEW1 RETUR"Fri と 人れ てみ てくだ さい. こ 
れは おぼえ 込んで いる BASIC による プログラム 
を， 全部 忘れて しまいなさい， という 意味の コマ 
ンド です. LISTI RETUW1 を 入れても. ブロ 
グラム は 表示され ない はずです. NEW の あと， 
次の プロ グラム を 入れて みて く ださい. 

10 A=10:B=15:C=A+B: PRINT C 



マルチ ステートメント をいた ずらに 利用す ると， 
« 正が 面倒で あり， また あとでの チェック も W«t 
になる ため， 余裕が あれば あま') 使わない 方が 無 
tt でしよう. なお， マルチ ステートメントに する 

どんな プログラムが メイ ン メモリに 人って いる 
か を 知る に は， LIST の コマンド 力 《 使われます. 

そして 長い プログラムの 場合， 次々 に 表示が 統く 
ため， 途中で 止めて 調べたい とき は， I BREAK I キ 
—を 押せば 停止し ます. また， 部分的に 表示した 
いとき は， 次のように します. 



LIST 
LIST 70 



LIST— 80 



LIST 90- 



RETURN 



RUN により， 前と 同じ 結果 を 得る ことができる 
はずです. 

このように 1 行であって も， 間接 モードで ある 
ことに は 違いありません. 1 行に 並べて しまう こ 
とので きる 長さ は， ft 大 255 文字です. ただし， 



全部の プログラムが 表示され る. 
行番サ 70 の プロ グラ ムが 表示 さ 
れる. 

行 番号 80 までの プログラムが 表 
示される. 

行 番号 90 以後の プロ グラ ムが表 
示される. 

LIST 100 — 200 行番ゅ 100 か ら 200 ま でが 表示 

される. 

なお， プログラム は， 小文字で キー インして や 
つても 問題ありません. この あと， LIST コ マン 
ド でもう一 度 表示 させて やる と， 大文字に 自動的 
に 直されて います. 
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1.10 



スクリーン • ェ 




キーボード 上の キーの 使い方に ついては， 必要 

に応じて 説明し ます 力 ここで は， プログラム を 

作る 上で 知って おく と 便利な スクリーン • エディ 

タ. つま'） CRT 上での 文' r- の 追加. 削除， 修正な 

ど を するとき の キー 《作 について if ベます. なお， 

ここで 示した 以外の キーの 橾作 について は， 2.17 
で说 明し ます. 



r^tfZ" ？ィフ 。す 3 ヒきは 雨手玄 

フル i こ PIS すさ^が' いいよ. 
^の ヒ？ は 各キ g マ" 下 @ の キー 

もネ 甲す ように 辞さ n よい 

キー を 柙 さない 匕き. 久 さし ネ 旨が' 

F ヒ J の 上に くる 5； うに する ひ 力ぐ 

いいの だ'， 



人 

さ 

し 




"、 卜 i 中 i き 
^き き 





FUJITSU 
MICRO 




議 




， i loi roi roi rosni 
roi r oi Toi roi r of 




rcsion 

for o'fi 




キー ポー ドの例 （FM— 7 の キーボード） 
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m どの 文字で もよ いから， 長く キ一 を 押し 较け 
てみ てくだ さい. その 文字が 1 字 表示され， ちょ 
つと 間 をお いてから 今度 は， 次々 に 表示され 綾け 
ます. 特に， グラフィック 図形な ど 作る ときに 便 
利な 使い方です. 

圈 力一 ソル 移動 キー （欠 印の キ一） を 押し 枝け 

てくだ さい. 今度 は 力 一ソルが X- 印の 方向に' i も i 
ifti の 端から 端 ま で何问 も^ 動し ます. 



m 文字が 1 列に 並ぶ 中に カーソル 移動 キー を 停 

止させ， CEQ キー を 押してく ださい. カー ソ 

ル 移動 キーと 直な つた 文字が 消えて しまい， その 
文字の 右側に 並んで いる 文字が， 一文字ず つ 左側 
に 引き あせられます. さらに 押し « けて いると' 
まるで 力一 ソルに 吸い込まれる ように' 右 谰の文 
字が 引き寄せられ， 1 字ず つ 消えて いきます. な 

お， DEL は 英語の delete (削除） の 略です. 

m rrNsi キー を 押す と, キーの 左側に 赤 ラン 

ブ がっき， この Insert (そう 入） の 機能が 働 いて 

いる こと を 示して います. この « 能が » いている 

とき， 文 卞 の キー を 押す と， カーソルと？ R なって 
いる 文字から 右側が， 全部 1 字 分 右側に 移動し， 

その 問に キー インした 文字が そう 入され ます. ブ 

口 グラムの 途中に 別の 命令 を 追加す る と きな ど,. 

たいへん 便利です. この « 能 を 中止した いとき は， 

もう 一度 キ —を 押してく ださい. 赤 ラン 
プが 消えて 正常に 戾 ります. 



m 今度 は， rgffim キー を 押しながら 矢印の 

キー を 押してみ てくだ さい. やはり 圆面 上で， 力 

一 ソルが 特別の 動き 方 をし ます. 

• m , I shift i+m 

T1 の 場合 は 下から 上に^ けて, [3 の 場合 
は 上から 下に 向けて 顺に， 並んで いる 文字の 先 
頭に 力一 ソル を 移動させます. 途中に スペース 
が あると. その 右側の 文字の 5tS にも 移動して 

く れ ます. 

SHIFTJ + Q. 



力一 ソルが どこに あっても， 力一 ソル は 左端 
に 移動し. 矢印の 方向に 動きます. 



圈 ^キ一 （でュ つ。 キー） 
二つ 4 《翁で'^^ をす 尹 マ ど 

] O x-A^ C ズ P 

' v— ^ 、カーン/ レ 

%^ 

つま", も 小 え^ごと に /丄 つ 行と 
阁じぉ^ もつ まみ 行/ ニ ^しおす 



gs ト カ-'〃 レ 

"ィ《 態 r 画 中 种れ 

ブ 23 ゃグ 67 ダサ 0 ブヌ 34 夕 《B 




MSB 



なお， これらの 仕事 は， 矢印の キーに よらす' 

次のように ESSE キー （Control キー） を 使 
つても 可能です. 



+ へ 



+ ヒ 



SH I FTJ + S = 



SH I FT + 



CTRLl + FF] 



+ LU = 





左右 2 ケ所 にある. 

^ヒ えば: 英文 支 

ごの キー をお ほが' ら 文 拿 

チ-を mtj^m^ 

ま r 乙 ノ J\t^^ ヒ まほ 

る. そ a> 他 
い 3 いうな 舉 きをす る， 



CAP (キ^ ：。 タル) ト. 

左赫 ラン フ 0 が , フき ， 

晏 j ^力げ 支 拿に 
なる • もう-ま m ヒ 

きノ： iHz 
バ^ 字に もビ る. ^ 



又へ に スキー， 
空白 （ス へ。 -ス） がお る. 



^RAPH (グラフ ィ、 ソフ) キー. 

ごの キ、 を狎 しな 力 

— 5 押 ^上図の 
キーの 倒 面 に^す グラフ ィ、 ソ 

フきヒ 号^ H 



BREAK (フ レク) キ-. 

コンビ: l- 滅滅 中て 

中止す る。 は 
Stop] にな, ている。 



ESC (エスケ-プ) キー. 
いろいろな きさ をす る (難 

略)。 TtYXit LI ST 命會 

TtiiS に 艮ヌレ てい る 文字 
を —時 停丄 お， もう— 

- 1 ^す 匕 次の 行 カリ 出 4 

解除お に は BREAK キ-き 
ひ 甲す. . 



丁 AB (タカキ - • 
カ- 、ルを 綱つ、、 银 
(g ぼ c 狗ぉ にお/勤お • 

CTRL (コント □- ル) キー • 
い 3 いろな 働き をお (詳細 略). 



PF (ア ログ ラマ プンレ ファンク ジ ョソ） キー. 
PF1-PF10, 

コンピュータに 対する いろい 5 な 指 f 、を孚 ^る 
キー。 ネ幾禋 にんて ネ幾鉍 カゅ少 巽なる， 



IMIMtellMIl 



31 翻疆 S31 [歸塵 疆13匾豳麵 





(^ラン フぅ ' 



CSP) 
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DUP (せ- ァ) キー, 
力— ソ ノレの £ の It 

にある 客 を s 

文字 で % 
しヒ る， 



に 



EL (ィ レ-ズ ヌソ) 
キー. 

力-ソルの fe 秦 
お を ^ ^ 



AyZ しまう. 



CLS (ジ— ェ) レエ 又) キー • 

えて 力- ソル 力し: K- 厶ポ 
ジジ ョソに 械 力お • 



Ffl-S^ I CLEAR 



HOME (ォ 、- 
厶) キ-. 

カ-、 J ま 求 
一 ム^ ジッョ 
ンに 化る • 



"^に な， ている • 




INS (イソ サ- 卜) キー. 

ぉ釗 の; f、 ラン フ 0 カ乂、 

フ' <. if ヒ;^ 匕 
の簡に 別の i 拿 を 

入揪 し〉 ヒ きに 

使う • vi-nm 
上诮 える. 

DEL (テ' リ- 卜) キ二 
カ-ソル を 丈^) 上に 
畲？ la て 2 の キ 一玄 
ォ 甲す ヒ 5 の 文字 力、" 
ゆえる.— 一 ' 




つき、 jc^-' & 

ヒ カナ 文 $ か 
出る， もう- ま 呷 

すヒ 赤、 ラン： m 

^えて 英文？ に 
にも ピる， 





f ^菌 ' 




つ^ フスへ 0 -又 キ-〕 




(矢印の キー）. 


叱 


(リタ-ン) モー • 




力— ソルの; £tj ひ 




カーソル ^矢印の 




人力 か" 終結 




1 文字 




て^ 顿る • k 




寸る • 




消去お. 






RH は 




FM - 2 は 


う 主 •） ； K —ム^ >ジ ショソ 




(RETURN に 




IBS ほな J いる。 


と は CRTiSjSi 


1 


なつ ヱい る， 






0) 处 偶の; T 匕 




、 / 




V ノ 






あなた は， すでに コンピュータ を 少なくとも 電 
卓が わりに 使う 力、， それ以上の こと を やらせる こ 
とがで きる ようになりました. もちろん， それ だ 
けで は コンピュータ を 使える とはいえ ません. 

ここから 力、'， いよいよ BASIC を 使った ブ ログ 
ラム 作りの 本論です. ここで は. まず 入門 編と し 
て， 必要 最小限度の プログラム 作りが できる よう 
に， 話 を 進めて みる ことにします. 



2.1 




ドー BASIC で 利用す る 文字 （文字 セッ ト） は， 

m れ, 'ト 文卞 . カナ 文'?:, 狐に 
号， そして グラフィック 文字な どです. これらに 
は， 付表に 示す ような キャラクタ コード （文字に 
付けられた コード 番号） 力 < 付けられ ており， キー 
ボートから キー インす る 以外に， コードで 指定し 
て 表示したり， 印刷し 出したり する こと もで きま 

す. 

これらの 文字 や K 号 は， プログラム を 作る とき 

に 欠かせな いものです 力、 グラフィック 文字で， 
グラフ や 図形 を 描き出 してやる こと も 可能です. 
キー ボー ド から 英文 字 や 数字 文字 記号 を 表示す る 
方法 は， ご存知のと おりです 力、 カナ 文字 を 表示 

したいと き は， SB キー を 押してく ださい. キ 
—の 右側に 赤 ランプが つき， キ 一を 押す と， キー 

表面 右下に 害いて ある 文字が 表示され ます. また 

I SHIFT I キー を 押しながら 押す と. 表面 右上に 
文字が 害いて ある キーの 場合， その 文字が 表示 さ 

れ ます. 

グラフィック 文字 を 使いたい とき は， I GRAPH I 
キー を 押しながら 目的の キー を 押してく ださい. 



こ r 了/お 7j 期 kji m 像き 2崎 

に 



と 入^る と =^DOO^?/-^ 



乙^ 3 ビ "0^2"， '表^さ ^さ 
をの あと ^UN[mom\ZiZr T め f ふ 



どお ど J つぼる る. 




IO LOCATE 20, ヌ 
0 PRINTS 



5 "や 




タ CIS と 入れ と I 

二つま^ や - , え ひ ま う. i 




m CRT は， 横 40 文字， 縱 20 行， 合計 800 文 

字の ます 目で できて おり， 任意の 位 af を 座標 指定 
する ことができます. 

例と して， 横 20 文字， 縱 5 行お いた 次の 位 a に 

A という 文字 を 表示して みまし よ う. プログラム を 
記 使 させてから， 一度 画面 をき れレ 、に (fCLSl キ 一 
を 押す） した あと， LIST を 出して RUN させて み 
ます. そのと きの CRT の 状態 は， 上図の ように 
なって います. 



BB プログラム 上で， 画面 をき れいに してから A 
を 表示した いとき は， CLS という 命令 を 人れ て 
やれば 可能になります. たとえば， 
5 CLS 

という ブロ ダラム を 追加して RUN する と， 
の 部分が 消えた 状態で， A が 出ます. 



® i- 示す わな フ。 a7y/^^ji§> と 

CRT 上で ••/ ま ©巧 ようにな ？>• 

，虽 S7 もき 札 （） にせよ 



."0 

LOCATBO t O<p 
位置. ' 




'ビ Z バイお カー V/ L^ x m お!^ さ ■ 



っァ 10 CLS 
，リ 20 し 0 じ ATE20_ 

30 PRINT^ABC" -、、 , 
40 LOCATE121，6 お /、'く、 
5<) •• ABC 

60 し OCPnE22,7 み •• ^ I'tF 



70 PR INI '•，>"•'•• 



：7 



> OH 




、 



樣. 




10 —10<0' 



80 し Ot:ATE2;3 ? 8 ふ/ し 

VO PRINT"JK. し'' -' 

J '：»0 LOCATEO,0 ^ 

no lisi た \ 



、• 力— ソ ノレ 



なお， CLS の 使い 力' に は， この 他に も いろいろ 
な 場合が あります. とくに， 後 ii の CONSOLE 
という コマンドと 合わせて 使う とき， 固 面の 全部 

を iW してし まう だけ でな く， その一 を ifi し た り 
できる 方法が あります か， ここで は « 略します. 
^細 は 文法 寄 を參照 してく ださい. 

圏 ifiifti をき れいに したつい でに， カーソルの 表 
示 を 消して しまう ん' 法 も おぼえて おき ましよ う. 

それに は 行^り- 10 の LOCATE という 命令 （この 
ような^ 令^ を キーワード という） の あとに， 0 
を 追加して やれば よいので す. 
10 LOCATE 20. 5, 0 

こ れで RUN させて やる と， それ ま で 点滅 し て 
いた カーソルが 消えて しまいます. 画面 処« をし 

ている とき， 力一 ソルの 表 面 が じゃまに なるとき 
があります 力、 そんなと き 利用す るお 法です. そ 
れ にしても， 力 一ソルの 表示が な いのは 闲 ります 
ね. とにかく 力一 ソルが どこかに ある はずです か 
ら， 文字 は 表示され ます. 
LOCATE 20, 5， 1 1 RETURN I 
と， ifi 接 モードで 人れ， カーソル を 出して おき ま 
しょう. この 文字が 1 であれば 表示， 0 なら 消え 
てし まいます. また， これ を 省略す ると 1 とみな 
され， 消えたり しません. 



上^の ような プログラム を 作る とき， LO- 
CATE などの K い キー ヮー ドを いちいち キー ィ 

ン する のが ifo' 倒と お考えの 方 は， 次の キーワード 
に K り 略 形 を 利 ffl する こと がで きます. なお， 
ブロ グラムの 中に W 咯形を 使つ て も， あとで LIST 
を 表示 させて みると， 略しない キーワードに 直 
つてい るの がわ か ります. 



1 キーワード 


省略 形 


CONT 


C. 


LOAD 


LO. 


SAVE 


SA, 


SKIPF 


SK. 


MERGE 


ME. 


GOTO 


GO, 


GOSUB 


GOS, 


RETURN 
RANDOMIZE 


RET. 

RNDM, 

LOC. 


LOCATE 


COLOR 


CO し 


MOTOR 


M. 


RUN 


R. 


LIST 


し 


CONSOLE 


CONS. 


WIDTH 





ま >N 

フ い c\ 、フ 

ぉピ い 
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これから 述べる プログラムの 例で は. どうして 

も 数値 を 扱う 話が 多くな り， 申し わけない と 思い 
ます. コンピュータ は， 単なる 計算 機械で はなく， 
人々 の 思考 活動 や 創造 活動まで も， 側面から アド 
バイスで きる 道具です. そのために は， 必ずしも 
計算ば か り カ< 必要 なわけ ではありません. 
しかし， コンピュータが 数 使で 動く 機械で ある 

ため， プログラムの 構造 を 知ってい ただく 上で， 
数値 や 計算 式 を 使う 説明が， もっとも 簡 « にで き 
ますし， また， たとえ * 務 処理に 使う 場合で も， 欠 
く ことので きないの が 数字と 計算です. 
さらにい いかえる と， 計算 処理 を ともなう 事務 
処理 こそ コンピュータに とって， もっとも 得 « と 
する 分野で ある， といっても よいの かも 知れ ませ 

ん. では， 早速 簡単な 計算の プログラムから 実行 
する ことにします. 

10 A=l/3 
20 PRINT A 

行 番号 10 に/ (スラッシュ） の 記号が 使われて 

います 力、 これ はもち ろん 割り算の gs 号です. 同 
様に して， 掛け算に は 木 （アスタリスク） が 使わ 

れ ます. 1+3 ですから 答 は 0.333 …… と 無限に 
続く はずです. ところが 荚 行して みると. 

RUN 

， 333333 

と 6 桁し か 表示され ません. コンピュータの 中 
では 7 桁までの 精度で 記 值 されて いますが， 表示 

は 6 桁な のです. 無限に 計算させる の は 無理 だと 

しても， 何百 桁 も 表示させる に は， それなりの ブ 
ログ ラム を 作って やらない と 得る ことができ ませ 
ん. そのような 手 統 きを 取らずに， もっと 精度の 
い 結果 を 得る こと も 可能です. この場合， # (シ 
ャ 一プ） 記号 を 付けて やります. 

10 A#=l#/3# 
20 PRINT M# 
RUN 

- 3333333333333333 
今度 は 16 桁までの 精度で 表示され ました. コン 



ピュー タの 中で は 17 桁までの 精度で 記 饿 されて い 
ます. 

m 単精度 數僅 定数と 単精度 変数 

# マークの 付かな i 、初めの 数依 を 度 ScW('4i 
ft, そして 変数 を 単精度 変数と いい， コンビ ユー 
タの 中で は 4 バイ ト 分の 領 W を A 領し ます. 

多くの場合， これ だけの 桁 数 あれば 充分 問 に 合 

うはず です. もう一 度 単精度 数 W (定数 を まとめて 
みると 次のようになります. 

(1) 有効数字が 7 桁 以下の 定数 

(2) E を 用いた 指数 形式で 表現され たもの 

私 達 は 数字で 大きな 数 や， 小さな 数 を 
表わす とき， たとえば 3 X10 7 とか 3 X 

10 一 7 などと 害き ます. コンピュータ では 

10 一 7 のよ う な 表現が とれない ため. 

3X10 7 3E+7 

3X10-7 3E - 7 

のよう な 表現 をし ます. 

(3) * 後に 慼嘆符 /力 < 害 かれた 定数 

PRINT 1 234567* 123456 
1.52415E+11 | RETURN I 

PR I NT 1 2345670 ！ * 1 2345670 ！ 
1 • 52416E+14 I RETURN I 

この場合/を 省略す ると， 倍精度の 演算 を 

実行し ます. 
倍精度 数 《 定数 

( 1 ) 有効数字が 8 桁 以上の 定数 

( 2 ) D を 用いた 指数 形式で 表現され た も の 

単 《 度の E のか わり に D を 用います. 

3X10 8 3D+8 

3 X10" 8 3D — 8 



(3) S 後に # 記号の 付いた 定数 

例 PRINT 12345670 I RETURN I 

#12345670 



PRINT 12345670*123 
152415567748900 



S 単に 定数と いった 場合， 大きく 分ける と 文 宇 
定数と 数 倣 定数の 二 禅 類になります. 文字 定数と 
は， " " でく くった 文字列の ことです. 文字 定数 
について は 章 を 改めて， いろいろな 性質 を 調べて 
みる ことにし ましよ う. 

&恤 定数 は， 被密 にいう と 整数 形式， 固定 小数 
点 形式， 浮動小数点 形式， 16 進 形式， 8進 形式の 
五つの 形式が あります. ここで は それらに ついて 
に ふれて みま 



1 



(2) 



(3) 



4 



： + . 一の 符号の あと （+ 

は' 略） に 接 数が 並んだ »tt で， 一 32768 
〜十 32767 までの 範囲です. 
固定 小数点 形式： 一 + , —の 扦 号の あ 
とに 小数点 を 含んだ (1.0.-123.4. 
• 95) をい います. 

浮動小数点 形式 ： —— 上の 例で 出て き た 
ように E や D な どの 指数部 を 含ん だ »«( 
(1.5532E+ 7, 1.000234D-8) をい 
います. 

16 ill 形式: 一 16 進数で 表わされた 数 



で， 次の 例の ように， &H の あとに 最大 

4 個まで 並べる ことができます. なおこ 

の 形式で ィ ンブッ ト された 数 fifi 力、 ァゥ 

ト プット される とき は 自動的に， 10 進数 

に 直されて しまいます. 

m &H6B, &H003F 

A=S<HB23: PRINT A I RETURN i 
2851 

(5) 8 進 形式 ： — 同様に 8 進数の 数値で & 
0 力 《使われます. この場合 は ft 大 6 個 ま 
で 並べる ことができます. 
M &O0123, &0 124716 
10 A=2<01234 
20 PRINT A 




コンピュータで いう 式と は， 浪算の 方法 を 示す 
もので， 定数， 変数， 関数 を 演算子で 結んで 指定 
します. もちろん 定数 だけで あっても かまい ませ 
ん. 変数 や 関数に ついては あとで 説明し ます. 

コンピュータで 扱う 式に はいろ いろ あり ます. 
ここで は， 差し当たって 必要な 算術 式 を いくつか 
の 例によって 説明し ます. 

算術 式と いうの は， 変数， 定数， 数な どの 数 

^デー タを 算術 浪算 子で 結び 合わせて 作つ たもの 

です. もちろん， データの みの^ 合 も 算術 式 

といい ます. 
コンピュータで いう 算術 «算 子に は， 次の よう 

な ものが 使われます. 数学の 場合 も， たとえば 

( ) が あるとき は， 内 « のかつ この 中が? B -HE 先, 
次に x と +, ？ R3 番目に + と 一が あるよう に， や 

はリ 優先 MB 位が あり， * 本 的に は 数学の 場合と 同 
じょうに 並んで います. （ ） の 中が 第一 《 先にな 
る 点 も 同じです. 







1 H 明 


1 


A 


べき * 


2 i 


* 


* 算 


/ 


浮動小数点 除算 






数の 除算， 格果は 浮動 小 


3 


¥ 


数. な 除算の 小数点 以下 を 切 






り 拾て た值 


I" 4 


！ MOD ] 


整数の 除算の #) 余 


5 




加 算 




滅 算 



なお 
^数 形 



I — 



¥, MOD では， 演算に 使われる 数字 力' 
でない 場^お 小数 部分が 四抬五 人され, 
札め られた 後に， «算 が 実行され ます. 



力' '/J ふ ー|?-傻1じ补 




m 円の 面 《 を 求めて みましょう. 

10 HANKEI=5 

20 MENSEKI=3， 14 本 5,2 

30 PRINT MENSEKI 

RUN 
78.5 

コンピュータ は. ちゃんと « 先 W 位 を 守って 
れ ましたね. では こんなの はどうでしょう. 

000 ま 加 

O ^) © ねめ 0 

う 0ゅ ぬ 



m 20 僩の 



ノ 



r を 3 人で 分けたら 余り は ？ つ 



まり， 20+ 3 = 6 余り 2 です. MOD を 使えば 簡 

単に 出る はずです. 答 は 2 になる でしよう か？ 

今度 は 直接 モー ドで やって みます. 

PRINT 20M0D3 i RETURN 1 

2 



2 + 6 は 0.333 です ね. ¥ を 使って 計算す る 
と， 四抢五 入され て 0 になる はずです. 



PRINT 2¥6 

0 



96 ¥ や MOD の 例 を いくつか 试 してみ ましよ う 



PRINT 15. 5 MOD 5 
1 

PRINT 15.4M0D5 

O 



RETURN 



？ N] 



□ 



PRINT 15.5¥5.4 

3 

PRINT 15.4¥5.5 

2 

簡単です ね. たとえば は .5 MOD 5 は， まず 
15.5 が 四捨五入 されて 16 になった あと， 5 で 除 
算が 実行され， 余りの 答えが 出て きた わけです. 
また， 15.4 ¥5.5 は， 四捨五入した 結果 15+6 と 
な'） ます. その 結果 は 2.5 です 力 ( ， 小数点 以下が 
切り捨てられ るので. 結果が 2 となって しまう わ 
けです. 



圏 図の ような 二つの ようかん を， 3 人に 平方 セ 
ンチ 単位で きちんと 分け， 余り を あなたが 食べる 
としたら ？ 




まず， 二つの ようかん は 4 X 5 + 6 Xl0 = 80cm 2 
そこで 3 人で 分ける と 80+ 3 =26 余り 2cm 2 
あなたの 取り分 は 2cm? 甘い 物 は， 余り 食べな 
い 方が よいので す. コンピュータで やって みま 



X 



PRINT 4*5+6*10MOD3 

20 



おや 7 変です ね. そうです. 優先順位 のこと 

をす つかり 忘れて いました. nws"i キー を 押し 
て （ ） をそう 入し， もう-度 試して みましょう. 

PRINT (4*5+6* 10) M0D3[lRESRN] 
2 



つまく いきました. （ ） は 幾つ 使っても 
かまいません. 数学の 場合 は 〔|( )|〕 と 使い 分 

けます 力、 コンピュータ では， 全て （ ） でよ いの 

です. ただし， 右 向きの かっこの 数と 左向きの か 

つ この 数と は， 必ず 同じでなくて はなり ません. 

PRINT (10+5* < 3+2 ) /7¥6+1 ) 



この 答えが 正しい かどう 力'， 紙に 書いて 計算し 
てみ てくだ さい. それによ つて， この 浪算の 少し 
込み入った ルールに も なれて いただける でしよう. 

かっこの 使い方で， 数学の 場合， aX(b + c) 

を a(b + c) と 書いても， いっこうに 差しつ かえ 
ありません. コンピュータの 場合 は， a 木 （b + 
c) と， 必ず 算術 i 寅算 子で つないで やらない と， 
エラーになります. 習 憤 上， つい 忘れて しまいが 

ちです. 
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2.4 




キ 一ボ一 ド 上部に 並んで いる PFl 〜PF10, つ 

ま り プロ グラマ ブル 'ファンク ショ ンキ一 の 使い 

方 を 紹介し ます. 今まで， たとえば PRINT など 
の 文字が たくさん 出て きました 力、 いちいち キー 
インす るの が 面倒な とき， この キー を 利用しょう 
という わけです. ファンクション キ 一は. 初期の 
状態で は， 次の ような 文字列が 設定され てい ま 
す. なお， C« マーク （キャリッジ， リターン） は. 



Hgg] キー を 押した のと 同じ 锄 きを する こ 
と を 意味し ます. また， ^ は スペース （空白） を 
ます. 

PF 1 AUTO_ 
LIST Cr 
RUN C« 
GO_TO_ 
CONT Cr 

？ DATES. TIMES Cr 
LIST "LPTO ：" Cr 
KEY_ 
し OAD_ 
HARDC Cr 

ヒ もの は FM — 8 の 場合の 例です. 
こついて は 次 ページで 示し ま 



PF2 
PF3 
PF4 
PF5 
PF6 
PF7 
PF8 
PF9 
PF10 



FM- 7. FM 

す. もう， 何回も 出て きた コマンド もあります ね. 
これ 以外の コ マン ド について は， 顺次 説明し ます. 
プログラマ ブル • ファンクションキー を 押した 

とき， 別の コマンドが 出る ようにし たいとき も あ 
ります ね. このような ときに 必要になる の 力 '-, 次 
の 命令です. 



つ 



KEY ファンクションキー 番号， 文字列 



ザ' 



文字列の 部分 は 最大 15 文字まで， または + 記号 
CHR$ 関数 （後述） をつな いだ 形で 指定され 

ます. 例 を a てみ ましよ う. 



m KEY 10, "PRINT" 
これで， PF10 のキ一 を 押す と， CRT 上に, 




PRINT と 表示され るよう になります. ここで 文 
字 列 は" " でく くった 文字の 並び か， 付^に 示す 

キャラクタ コードおから 作る ことができます. そ 



こで キヤ リ 



ッ ン 



) ターン も l"J 時に 实行 させたい と 



き は， キャラクタ コード 表の Cr の コード， すな 
わち 十六 進数の D, 十進 数に ift すと 13 から， 次の 

ようにして 作る ことができます. なお， CHR$ と 
いう コマ ン ドの烊 細 は 後述し ます. 



KEY 9, "KEY LIST" +CHR$ (13) 

ここで KEY LIST というの は， プログラマ 
ブル' ファンクションキーの 内容 を 表示せ よ， と 

いう 命令です. そして， CHR $ け 3) によって 

HTSgE キー を 押した のと^ じ 動作 をす るよ 
うになります. では， これらの 命令 を 入れた 後， 

実際に PF9 を 押してみ ましょう. FM — 8 では， 
つぎの ような P F キ一 の一 R 表が 表示 されて くる 
はずです. この 命令 自身 は. もちろん FM シ リー 
ズ のどの 《« にも 共通に 適用で き ます. 



PF1 


AUTO_ 


PF2 


LIST Cr 


PF3 


RUN Cr 


PF4 




PF5 


CONT Cr 


PF6 


7 DATES, TIMES Cr 


PF7 


LIST "LPTO ： " Cr 


PF8 


KEY_ 


PF9 


KEY LIST Cr 


PF10 


PRINT 



圈 ROM モードと DISK モード 

FM— 7, FM — 8 の パソコン を BASIC で 働 
かせる 場 会， いずれも 2 ^類の BASIC 力 s 用 * さ 
れ ています. 

その 一つ は， コンピュータに 内蔵され た LSI 
(ROM) の 中に 記 使して いるものです. したがつ 
て， フロッピィ ディスクが 動作し ない 状 想で コン 
ピュー タに U£ 源 を 人れ ると， ただちに この BASIC 
が 動作す るよう になります. そこ で. こ の BASIC 
のこと を ROM モードと いいます. 

もう一 つ は， DISK モードと いい. 外部 記 使-装 

3E として フロッピィ ディスク 装 S を 接^した 状態 
で 利用す る 場合です. ROM モードの BASIC では 
フロッピィ ディ スク装 S を 利用す る こと はでき ま 

せん. フロッピィ ディスク も 利用で きる BASIC 
は DISK モー ド といい， これ は フロッ ピィ ディ ス 
クの 中に 記 « されて います. そこで， DISK モー 



ドの BASIC の 入って いる フロッピィ を ディ スク 
^5£ の 0 と 害いて ある 所に 入れ， コンピュータの 
電源を入れ るか リセット ボタン を 押す と， ROM 
モ一 ド から DISK モー ドに 置き換えられます. 

ROM モードと DISK モードの j£ いは， フロッ 
ピ イデ イス ク 装置 を 利用で きる かどう かとい う^ 
だけです. なお， FM — 11 は 原則として DISK モ 
一 ド しか あり ません. 

圈 FM - 7 の PF 

FM— 7 の プロ ダラ マ ブル' ファンクション キ 
一は， ROM モードの 場合と DISK モードの 場合 
と は 多少 違いが あるので， X として 示して おき ま 
しょう. いうまでもなく， これ は 初期 設 おの 状態 
(^源 を 人れ たと きの 状憨） で， のように KE 
令 を 使う と * わって きます. 



モード 


ROM モー ド 


DISK*—' 


PF1 


AUTO 一 


AUTO — 




LI ST Cr 


し 1 ST Oi 


PF3 


RUN Cr 


RUN Cr 


PF4 


CONT Cft 


CONT Ca 


PF5 


"1ST Cr 


し LI ST Cr 


PF6 


LOAD Cn 


LOAD* 


PF7 


SAVE" 


SAVE' 


PF8 


'DATES. TIMES 


FILES 


PF9 SCREEN 7， 7 C« 


SCREEN 7, 7 Cr 


P F10 HARDC Cr 


HARDC Cr 




フ D ツヒ。 ィテ れフ 
さ' 使えお' に. 




ROKI BASIC 




DISK BASIC 
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左表に 示す コマ ン ドの 中に， LLIST というの が 
あります 力、'， これ は コンピュータの 中に 記 诋 して 
いる プログラム を プリ ンタで 印刷す るた めの 命令 

です. 



LLIST300, I RETURN 



LLIST [ RETURN 



と 人力す ると， 接 して ある プリンタ 装 ffi 
が プログラムの 全部 を 印刷し ます. 

LLIST200 I RETURN 1 
行 * 号 200 の プログラム 

LLIST30-200 または 

しし IST30, 200 1 RETURN 1 
行 S 兮 30 から 200 までの ブロ グラム 

し LIST — 50 または 



しし 1ST， 50 RETURN 



行 番号 50 までの プロ グラム 
LLIST300— または 



行 番号 300 以降の ブロ グラム 
ただし この 命令 は， 初めに CRT に 表示され る 
文字が， Version 1.0 になって いる FM— 8 の 
場合 は 使えません. この場合に は， LIST'LPTO 
ヾ という 命令 を 利用して ください. なお， これ は 
FM— 7 や FM — 11 でも 利用で きます. 
UST* LPT0:' 

プログラムの 全部 を 印刷. 
LIST" LPT 0：" 300, 500 

行番兮 300 から 500 ま での プログラム を 印刷 

囫 FM — 11 の PF 

FM — 11 は， その 中に EX， AD, ST という 
三 の 機 W: が あ 1 ), その プログラマ ブル' ファ 

ン クシ ヨン キー は， 次のように なって います. 



タイプ 


FM 11 EX. AD 


FM II ST 


PF1 


AUTO— 


| AUTO— 


PF2 


L 慕 ST Cr ！ 


L! ST Cr 


PF3 


RUN Cr 


RUN Cn 


PF4 


CONT Cm 


CONT Cr 


PF5 


LLIST Cm 


LL I ST Cr 


PF6 


LOAD* 


LOAD Cr 


PF7 


SAVE, 


SAVE' 


PF8 


FI LES 

^^^^^^^^^^^^^^ 


？ DATES, TIMES Ot 


PF9 1 


SCREEN 


SCREEN | 


PF10 | 


| HARDC Cr 1 


HARDC Cfi | 



つ 変数と は 違い. 定数 を 人れ てお く 箱， そして そ 
の 箱に 付けられた 名前が 変数でした. また， いく 

つ ffi が;!? いてあって も. 别に If くこと はない し， 
変数に 数字 （または 文字） を 人れ て やらない 限り， 
その 中味 は 0 である こと もす でに 出て きました. 

変数に は， 数値 を 人れ てお く 数 ffi 変数と， 文字 
列 を 人れ てお く 文字 変数が あります. 数 W (変数の 

方 は， もう 何度も 出て きました ね. 文字 変数 は， 
いろいろな I* 類の 文字 変数 を 用意して おき， コン 



ビュー 



赛果に 



，, 



の fid 列 や «fi^ を 



変えて CRT に 表示して やるな ど， いろいろと 楽 

しい 使い方が 可能です. その 使い分けに ついては， 
後 章に ゆずります. 楽しみにして おいてく ださい. 

変数に 付ける 名前 は， 英数字の いずれで もよ く， 
最大 255 字までで す. ただし， 第 1 文字 目 は 英文 



变敢 ^辛て 接しち おけの 
れ' 拌 のヒ？ は 0 が' 入 ，"^よ, 




PRINT"A="A 
PRINT"A="A 



いきな リ A" ィ * もお り 
^さ.^ ノ 



、'J 




字でなくて はなり ません. また， 英 大文字と 英小 

文字で 区別す る こと はでき ません. さらに， BA - 
SIC に 使われる 予約語 （ステートメント 名， コマ 

ンド 名， 閱& 名， 《算 子 名な ど） を 使う こと は 許 
されません. ステートメント なのか 変数 名な の 力'. 
コンピュータに は K 別で きないから です. 
もちろん 英文 卞 1 卞 であっても かまいません. 



ただ， たく さんの 楝 W の 変数 力 



tlj 

1 1 J 、 



る 場合, 



ログ ラム を 作って いて， 何に どの 変数 名 を 使った 
か、 つい わから なくなって しまう こと もあります. 
そこで， キー インが 面倒に ならない 程; 5： の 長さの， 
わかりやすい 変数 名に してお く と 便利です. 

変数 名 は， 255 文字 以内なら 長さに は 制限 あり 
ません 力、 コンピュータが 違う 変数と して 区別で 
きる 長さ は， 16 字 以内に 限られます. 16 字まで 
同じで， 17 卞 以後が 違って いても， 同じ 変数 名と 
見なされて しまう わけです. 

変数の あとに 記号 を 付けて， 変数の 型 を 示す 方 
法 や 'にしに は， すでに 数 攸 定数のと ころで 出て 
きました. ここで 新しく 二つの 種類 を 追加して， 
変数の S 宣言 文字 を あげてみ ます. 

% 接 数 変数 を 示す. 

—つの 変数に つき， 2 バイトの データ 格 
枘域を 必要と する. 

！ 単精度 変数 を 示す. 



—つ 



こ ゥ 



4 バイ トの データ 格 



ヰ 



$ 



W 域 を 必要と する. 
倍精度 変数 を 示す. 

3 の 変数に つき， 8 バイトの データ 格 
枘域を 必要と する. 
文字 変数 を 示す. 

襞大 255 文字の データ を 格納す る こと が 

できる. 



o o o u II- JI. 



例によって， 簡単な 実例で その 内容 を 調べて み 
ましよ う. 

10 A'/.=9，876 
20 B7.=2.345 
30 PRINT A-/.+B7. 
RUN 

12 

A% は^ 数 変数で あるた め， 右辺の 数が 四捨五 
人され て 10 となり， B% が 2 となって ( id 使され， 
その 結果が 12 となって 表示され たのです. 

10 A=l . 234567+1 . 020304 
20 PRINT A 

RUN 
2.25487 

変数 A は， 数 を 人れ てお く 箱です. 3 + 5 と 

いうよう な 式 は 入りません. そこで 行 番号 10 では. 
A に 演算 結果が 人って いる わけです ね. なお， 型 

V"f を ヒ もな わない 変数 名 は. ： のよ うに 単精度 

形式の 数 依 変&と して 扱われます. 

10 Att=123456789 
20 Btt=876543210 
30 PRINT A#+B# 
RUN 
999999999 

今度 は 倍 tt 度 変数と して 扱われて います. 

1 0 A$=" アイ ゥ工 ォ'' 
20 B$=" 力 キク ケ コ" 
30 PRINT A*+B* 
RUN 

アイ ウェォ 力 キク ケ: 3 

10 a»=" ャレ o u .>r " 

20 A»=A*+"iM t»" テラス 》l " 
30 A»=A*+ "ァ i, ラ ス Jt" 
40 PRINT A* 
RUN 

TU ゥ"' T カ— テラス ル ァ シ ラ スル 

文字列の 取り扱いに ついては， この辺で やめ， 
あとの * しみ にしておく ことにし ましよ う. 




m DEF7INT/SNG/DB し/ 

変数に はいろ いろな 型が あり， いちいち ％， f 、 
#, $ などの 記号 を 付けて 宣言し なくて はなり ま 
せん. しかし ときには， このような 手 統きカ 《 面倒 
になって くる 場合 もあります. そんなと き， まと 

めて この 文 宇 は 何 S だと 指定して しまう 方法が 

DEF 〜です. DEF は define (定義す る） の 略で 
すね. 



DEF 型 指定 文字の 範囲 



型 指定 は， INT (K 数)， SNG 
DB し （倍精度）， STR (文字） のい ずれ かです. 
また 文字の は， アルファベット 一文字で な 
て はなり ません. 何 文字 も DEF で 宣言 するとき 
は， アルファベットの 上位の一 文 宇と， 下位の一 

文' P を 一で 結んで やります. 
この Vi- はに よって， は^ された 文卞の 範囲 が 型 

指定て ^ す 変 》s になって しまいます. ただし， 

99 述 のよう な' 5T 直言 文字 を 持つ 変数 f あ DEF 宜 
雷され ている 文字より * 先して， S! 宣言され た 型 
の 変数に なって しまいます. 

なお， このような as が 全くない 変教 は， 全て 
単精度 変数と して 扱われます. 

10 DEFSTR A-Z M+o^ 7 ^) 

X= N アイ ゥェォ " " ； 

A7.= 10:B7.=: 
X*/-=Ay.+B'/. 
PRINT X 
PRINT X'/- 

アイ ゥェォ 
40 

この プログラム によると， 行番サ 10 の' な^ 文で, 
アルファべ ッ トの 全ての 文字が 文字 変数と して 扱 

われる ことにな つたわけ ですから， 変数 x ももち 

ろん 文字 変数です. したがって， RUN させる と， 
アイ ゥェォ と CRT 上に 表示して きます. もし， 
行 番号 10 がない と， X は 単精度の 数値 変数です か 
ら， アイ ゥェォ という 文字列 は X の 中に 入れる こ 

とがで きず， エラ一 を 表示して きます. 

使える 文字 は アルファべ ッ ト 26 文字に 限られ ま 
すが, たとえば 名簿 を 作った'） するとき など， い 
ろい ろと 使い道の ある；; 法です. 




N 

o- o- 0- o o U 

2 3 4 5 6 R 
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コンピュータと あ 



r jr に 



の 会話の た 



ス 



テート メント 力 f INPUT 文です， INPUT のステ 
—トメ ントに 出会う と， コンピュータ は？ という 
表示 をして， あなたの 指示 を 待つ 状態になります. 
そして， あなたが キーボードから 必要な 指示 を 与 
えて やる と， それによ つて 再び 動作 を 開始し ます • 




[ 



いつ： 



た 部分 は， なければ なく て もよ 
す. また， ブロン ブト メッセ 一 

ジ というの は， コンピュータが 何 を K 間 している 

のか を わかりやすく する ための 文字列です. 突 例 

で いろいろ 綱べ てみ ましよ う. 

美しい 湖水. どこまでも 広々 と til いている 湖水 

の 表 rffi. 私達に は， 遠い のかな たまで 真っ平 

fe に 見えます が， 実は 真ん中が ぐっと り 上がつ 
ている こと を ご tffti です か 7 本'", です. その^ 

拠に， 広い 湖水で は 水の 《リ 上がりの ため， 纣^ 
が 見え なくなって しまいます. そうです. ^ が 
丸い からです. 

図 を 見て ください. 三 平方の 定理 （ビ タゴ ラス 
の 定理） から， 

HABA\2 



HANKEI 2 = 



2 



\2 

) + (HANKEI- 



TAKASA) 



これ を 解く と, 



腳 KEI 2=il^A + HANKEI 2 - 2XHANKEI 

XTAKASA - TAKASA 2 
両 辺から HANKEI 2 を 引く と， 

0 =J1MA 一 2 x HANKEIXTAKASA + 
TAKASA 2 

他に 比べて TAKASA 2 はと て も 小さい ので 無視 
し. 上 式 を 整理す ると， 次のようになります. 

TAKASA = HABA 2 /(8XHANKEI) 




HANKEI 



こ れを^ くど. 



丁 触 ま"^^ ； 




a 2 ^c 2 



ここまでの アルゴリズム は あなたの 仕^, あと 
は コンピュータに ま かせれば よ いのです. 

m TAKASA を 求める プログラム を 作って みま 
しょう. 

10 INPUT" A ンケィ 卜 八 八" ラ 
オシ ェテ クラ" サイ M ;HANKEI,HABA 

20 TAKASA=HABA^2/(8 

♦HANKEI > 

30 PRINT TAKASA 

RUN 

A ン ウイ 卜 A 八" ラ オシ ェテ フヲ "サイ ？ 
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と 表示が 出ます. そこで Jfei^ の 半径 6378000 (m) 
と 幅 4000(m) を コンマで 区切って 入れて やる と， 
.313578 

と 盛り上がりの 高さが 出て きます. 幅 4km の itfe^ 
上の 湖の 水 は， 約 30 on の 高さで， 丸く 盛り上が 
つてい る わけです. 幅 10km なら どうなる 力'， 実 
際に 調べて みて ください. 

キー イン するとき 6378000 と， 1 個た' け 入れて 
1 RETURN I キー を 押す と, ？ Redo From Sta- 
rt と 画面に 現われ， 再度 キ一 イン 待ちになります. 
この メッセージ は， キー インした データの 数と， 

変数の 数が一 致しなかった')， 変数の S が 違った 

りした と きに 表示され る ものです. 

また， 文字列の あとの； を. に 変えて やる と？ 
の 表示 はなくな つてし まいます. なお， ブ ロンブ 

ト メッセージ は， ^略す る こと もで きます. 

圈 INPUT 文 は， Sdtf (変数で はなく. 文字 変数 
であっても かまいません. ただし， 変数 名の あと 
に $ 印 を 付ける こ と を 忘れない でく ださい. 

10 INPUT" アナ ラ i、 っラリ ラ 
<7^> ？ く: 辛 ライ > 7"，A$ 
20 PRINT" ヮヲシ モ ァすヲ ラ" 

あなたが 好きなら 私 も 好き， あなたが きらうな 
ら私も …… . コンピュータ は 正直です ね. このよ 
うに， 文字 数列 を + でつ なげて やる こと もで きる 
わけです. ここで ブロン ブト メッセージの 後に， 
，を 付けた の は， ブロン ブ トメ/セージ か 入る 
と， ？ 力'' 表示され ない ことにな つてい るからて す. 
なお， キ 一イン は， "'でく くって やらなくても 
よいので すが， スペース や， ； などが ある 場合に 
は 必要です. 



0 IN/PUTA,B,C 

ぶけ，" おき. ， で、 が7] 

つ？ 三つ 捡べ、 ふ 




10 INPUT A*.B* f C* 

^ RINT A * +B * +c しれ z 入 W 

345 lO INPUT At 

—つす" つ 入れる 20 INPUT B$ 

い ニ ニ 二 二' 30 INPUT Cf 

わ I 一し 7: '7 れ 1 ^ 40 PRINT A*+B*+C* 

ありよう に^さ. RUN 

フ 3 

？ 4 
545 



INPUT 文 は， 今までの プログラム 例と 違い， 
途中で あなたの キ 一イン を 待つ， という 状態に な 

るので一 a 止まって しまった かに 見えます. 

このような 状 » のとき， プログラム を 中止す る 

に は， I BREAK I キー を 押す か， 「 CTRL j キー を 

押した 状 想で， X または C の キー を 押して やれば 
可能です. 次に C0NT という コマンド を キー イン 
してやる と， INPUT 文の 初めから * 行 を W 関し 

ます. 

なお， 文字列 を 人力す る とき は 数字 や 文字 をキ 



一 インせ ず I RETURN I キ一 や 押す と. ^文卞 列 



が 1 回 だけ 入った のと 同じ 結果が 灾 行され ます. 

♦ LINE INPUT 



line irwr ["ブロン ブト メッセージ" I ： I] 
文字 変数 



文' i: 変数に. 1 行 全体の 文字列 （255 文字 以内) 
を そっくり 统み 込みます. この場合， プロンプト 
メ マ セージが あっても なくても ？の 表示 は 出 ませ 
ん. また， スペース や，； などが どこに あってし 
また * があって も そのままの 形で， 文字 変数に 取 
り 込んで くれます. 

10 LINE INPUT A* 
20 PRINT A* 
RUN 

, ； "ABCD" < キー インした 文字列 

， ； "ABCD" , —— A$ の 結果 を コンビ 

ユー タが CRT 上に 
^し 出した 状！ S てす. 



2 R ？ 
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2.7 


f ハハ T ハ 


GOTO 〜 


は， 文字 どおり， 〜のと ころに 飛ん 


で 行けと いう 意味です. 


GOTO 行 番号 



プログラム は， 原 W として 行 番号の 顧 序に 実行 
していき ます 力、 この ステートメントに 出合う と. 
指定され た 行 番号のと ころに， 飛んで 行って しま 
うとい う 便利な 命令です. いろいろ 利用で きます 
ね. ただし， 長い プログラム を 進める とき， む や 
みやたら に GOTO 文 を 多くす ると， 次第に どこに 
飛んで 行った かわけ がわから なくなり， ブ ログ ラ 
ム 上で一 種の 迷路が できて しまいます. その 点さ 
え 注意 すれば， たいへん 便利な 命令です. 

圏 簡単な プログラムで， 使い方 を 調べて みまし 
よう- 

10 C し INPUT"A ンケィ 卜 八 八" ラ 
オシ ェテ クラ" サイ "； A, W 
20 H=W へ 2/ (8*A) 
30 PRINT H 

40 INPUT' 'フ タラ ス中す キー ラ 
オシ テ ヮタ" サイ"， If 
50 GOTO 10 
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MA' 
A AAA. 



厶 A A'' 



敏 



v^&^^lKA 、にし 

力- '/【は 左上お 
： 病に ず、 （も 




すでに 出て きた 同じ プログラム を 少し 修正した 

だけて す. 行 番号 10 の CLS は， 画面 をき れいに 
消して しまう 命令です. また 40 は， 変数 I $ に 文 
宇 を 入れよ という 命令です. 何 を 入れても 動き 出 
します. こうして おかないと， プログラム がすぐ 

次に 進んで しまい， 答え を 昆 る ひま もありません 
(CLS を 使わなければ その 必要 はあり ません）. 
そして， 行 番号 50 で 再び 初めに « り， 同じ 動作 を 
跺リ 返します. 

この 動作 を 中止した いとき は， I BREAKS — 
押す か， I CTRL 1 キー を 押した 状膀 で. X または 
C キー を 押してく ださい. そして， 再び 突 行した 
いとき は， C0NT1 RETURN I と 人れ ると. 先 ほ 
ど 中止した INPUT 文のと ころから 実行 を 始め ま 
す. 




SOTO 10O 



10 PRINT"A"; --GOTO 10 

さあ， たいへん. A を 次から 次へ と 表示し 始め， 

止まら なくなって しまいました. でも， もうお わ 
か り です ね. 



で 
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j kJih \j\J 1 リ 


同じ GOTO にも， こんな 使い方 もあります. 


ON 式 


GOTO 行 番号 [，行 番号] …… 



式の 値が 1 ならば， GOTO に^く 行 番号の 1S 
目に， 2 なら 2 番目の 行 番号に …… という 》 に， 
飛んで 行く 行 番号 を いろいろ 変える ことので きる 
命令です. ただし， 行 番兮が 四つし か 並んで いな 
いとき， 式の 結 * が 5 であれば， この ステート メ 
ントの 部分 は 飛ばされて しまいます. また， 式が 
^数で ない 場合に は. 小& 部分 は 四抢丑 人され ま 
す. 

10 INPUT' 1 ワカ リマ シヲカ ？ ワカ' 》 ララ く 1>， 
フカ ラナ 1' すラ く 2> ラ .1' レテ クラ" サイ" ,1 
DN I GOTO 100， 110 
GOTO 10 
PRINT" ェ ライ リ' s GOTO 10 
PRINT"^— _^；/ ！ " ： GOTO 10 



この プログラム によると， コンピュータ は あな 
たに ワカ リマ シ タカ 7 と， しっこく 何度も 聞い 
てく る はずです. うるさく なったら， 停止して し 
まう 方法 は， もうご 存知です ね. なお， 1 は 単な 
る 変数で はなく， 複雑な 式で あっても かまい ませ 
ん. とにかく 結果と して 1， 2 …… の 整数が 得ら 
れれ ばよ いわけです. また GOTO 文で 飛んで 行 
く 先 も， その あとに 複》 な 処理 カビ 侍って いても か 
まいません. 

10 C し S 

20 PRINT " スゥ シ'、 ラ ヲ" ス —— 1" 
30 PRINT " 力す モ i パ、 ラ タ" ス 一一 2" 
40 PRINT 一 マ シ、' ラ ラ" ス —一 3" 
50 PRINT" 1 カラ 3 マテ" ノ" 
60 PRINT ' 'ス ウジ" ラ ィレテ 9 ラ" サイ'' 
70 INPUT I 

SO ON I GOTO 100,200,300 
100 PRINT M 123456" :GDTO 1 000 
200 PRINT " ィ □'、 ニホ V sGOTO 1000 
300 PRINT "ABCDEF" :G0T0 1000 
1 000 FOR J=l TO 3000: NEXT J 
1010 GOTO 10 



o o 

2 3 1 i 
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いよいよ コンピュータ らしい 仕事に なって きま 
した. 同じ 種類の 仕事 を 操り 返し 実行させる のに 
便利な 命令が これです. 


FOR33S: 


= 式， TO 式 2 [STEP 式 3] 


NEXT [変数 名 [，変数 名] …… ] 



操り 返し 实 行させる 命令 は， この 二つの 命令の 




Ready 
RUN 
A 1 
A 2 
A 3 
A 4 
A 5 
A 6 
A 7 
A 8 
A 9 
A 10 



同時に 変数 J の 口を出させる 
と， このよ うに J 力、' 1 ずつ ふ 
えてい るの がわ かり ます. 



J は 1 ずつ 数が W 加 していく よう すが わか リ ま 
すね， 



FOR J=l TO 10 
PRINT "A"; J 
NEXT J 



ザ 



ります. 



FOR J=l TO 10 
PRINT "A" 
NEXT J 



4 



A が 10 個 並 ふ 



つまり， J が 1 の 状態で NEXT J のと ころ ま 
で 進み, また 初めに 滞り J = 2 の 状態で また 次に 
進み， 再び PRINT "A" を灾 行し ます. この 緣 
り 返し （F0R〜NEXT ループ） が、 J =10 にな 
で 操 リ 返される わけです. 



Jnextjj 



TO ！ 0- 



れ よう 



場 




t 了 f^>3o ピっ x ど J とラ严 ぶが 

コン 7 になつ でリ 3^ め， 穴お 

r^?^\'%t.^i)i. t ミコ 

ロンに す 5 ど ^オト 

^終お てく さ 

命令 だよ. 





o c- o 

1 2 3 



ス o o o e u 

に 12 3 RRAAAAAAAAAA 



c 



p 

E 

r 

s 

5 

o 

r 

， 

5 

o 

I 

J 1 

+ 

R X 

□ II 

F X 

o o 

1 2 




J 
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X 

丁 

N T 

I X 

R E 

p N 

o o 

3 4 




5 5 5 



•112 2 3 3 4 4 5 /T ( w O 

一一 一一 I : I I z J 



N o 

^12 3 4 5 6 7 8 9 1 



蠱 

X 



70 INPiJT ヌ i Y, Z 

520 FOR I-X TOY STB? 2 




なお， NEXT の あとの 変数 名 は， 省略す る こと 

がで きます. また 式 1 〜式 3 は， ここで は 数 

示しました 力、 この 段階で 通 正な 数 使に なりえ さ 

え すれば， どんなに 複 *t な 式で あっても かまい ま 
せん. 事実， 長い プログラムの 中に この ステート 

メント を 使う とき， 以前の 処理の 結果 次第で， ル 
—プの やり方 を 変えて やる よう な 場^ 便利です. 
では， 次の プログラム を 実行して みましょう. 



10 C し SsPRIMT" ゥリ ァク" ノ ク" ラフ'' 
20 FOR 1 =1 TO 40:PRINT"-"; :NEXT <J^1 
30 LOCATE 0, 15 

40 FOR 1 =1 TO 40: PRINT"-"; : NEXT 
50 L0CATE10, 1:PRINT"V 

60 FOR 1 =1 TO 13s J=J+ls し OCATE 10, J +l : PRINT" l M :NEXT <f^ 
70 LOCATE 10, 15jPRINT m 

80 LOCATE O, 2 sPRINT " マク" sPRINT "A マチ' ， = PRINT ' ，ヒ ラメ 
100 LOCATE 11, 2: FOR A=l TO 1 2: PRINT M * M ; :NEXT や 
110 LOCATE 11, 3: FOR A=l TO 15: PR INT " * M ; :NEXT 
120 し OCATE 11, 4: FOR A=l TO 8: PRINT" * M ; 2 NEXT 
130 LOCATE O, 16 



NEXT や あ t^^F^^ 




ゥ リア ゲ ノ グラフ がで き 上がりました. 
100〜120 で， A の 数 W (を 12, 15, 8 としてい ま 
すが， この 他: をた とえば INPUT 文に よって キー 
インして やり， キ 一イン 次第で 変えて やれ (iT， よ 
りよい プログラムが 作れる でしよう. 行番兮 130 
は， グラフの 中に カーソルが 人る と， じゃまに な 
るので 人れ た 命令です. 

100〜 120 のように， 似た プログラムが « くと き 
は， 行 番号の 100 を 110 と 修正した あとで. 必要 
な 場所 だけ 同様に 修正し， I RETURN I キー を 押 
すと， 簡単に ふやして いくこと がで きます. 

なお， ここで は F0R〜NEXT 文 を 使って， 線 

を 引いて みました 力、 実^に はもつ と 便利な 方法 
もあります. それ は あとのお 楽しみです. 




ゥリ アサ" ノ 7" ラフ 




行 》兮20 から 70 までが， 表の けい 線 を 作る プロ 
グラムです. F0R〜NEXT 力、 たくさん 使われて 
います. また， LOCATE で I 由 jifii 上の 位 ffl を 桁 
定 しています. これらの コマンド を 使って 描 線 や 
縱 « を 描き出して いるので す. 

左 は， この プログラム を 実行した 結' * です. 



チ メ 

7 マ ラ 
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FOR 〜 NEXT の ループが ブロ グラム を 作る 上 
で. たいへん 便利な 命令 だとい うこと は， もうお 
わかり いただけ たこと と 思います. 例の 中に 出て 
くる 使い方 は， 簡単な もの だけ を 示して いますが, 
'JiP お 的な プログラム では， もっと 複 Jt で 長い もの 
に 仕上げる 場合 も 少なくありません. 

さらに. 何 重に も ループで 囲んで やる こと も あ 
ります. なお， このように 何 重に もなる 形 をと る 
もの を， 人れ f_ の 状態. ネスト （nest) ともい い 
ます. 

FOR 1=0 TO 10 
FOR J =0 TO 20 

FOR K = 0 TO 30 

j ... 

NEXT K 
NEXT J 
NEXT I 



* 1 

* 2 

* 3 

本 4 

* 5 



ネスト 60«を 
している 



これ は 三 11 の ループに 照 まれた， FOR〜NEXT 
ループの 例です. * 1 〜 * 5 の 部分に 必要な ブロ 
グラム を 追加す る ことができます. ここで 'ス をつ 
けて 欲し いのは， 一番外 脷の ループ は I という 変 
数， 真ん中が J , 内側が K という 風に， お 互いに 
交差し ないように 作られて レ 



て はな 



り '<* 



いと 



いっこと と， 三つの 変数 は それぞれ 通 つた 名前で 
なくて はならない， という 点です. たとえば， 次 
のよう な ループの 作り方 は ルール 遠 反で あり， コ 
ンビュ 一タは 動いて くれません. 



入れみ 




FOR X=l TO 20 



FOR Y=2 TO 30- 



NEX 丁 X 



お a いに 交わり 
合う 作り方 は. 
許されない 



NEXT Y 

もう一 つ 気をつけて いただき たいこと は， たと 
えば GOTO 文な どで， FOR~NEXT の ループの 



中 力 



出す こと は 可能です が， よそに 



GOTO 文な どから， この ループに 飛び込む こと は 
^されない という ことです. 

では ここで. /しんの, il "算を する プログラム を 作 
つてみ ましよ う. 

10 C し S 

20 FOR X=l TO 9 
30 FOR Y=l TO 9 
40 Z=X 本 Y 

50 LOCATE ( X-l ) *3, Y: PRINT Z 
60 NEXT Y,X 



命令で 



リ -60 で Y, X の顺 序に 乂を つけて くださ 

い. 行 番号 50 は， ^九の 計算 結 * をき ちんと 並べ 
るた めの 手立てと， 結果 を 表示す るた め 
す. なせ'， こうすると きちんと 並ぶ か は 考えて 
ださい. LOCATE A, B は， A が 横， B が羝 
の 座標で したね. 



〜 



れは， 多重の ループではありません が， や 

は り FOR〜NEXT を 使った 楽しい 問題です. 
もし 途中に， 山 や 建物な どの 視界 を さえぎる も 
< なかった としたら， 日本一 の 山， 富士山 は K 
こして 220 〜 230 km 離れた 金 沢 か ら は 見え 
るでしょう か？ 約 100km 離れた *： 京から は， 何 

合 目 以上が 見える でしよ うか 7 名古屋 なら ？ 
i し， ？; i 士 山の 位; K に エベ レ ス ト 山が あったら ゥ 

さ らに ity* 上で はなく 木 m だったら 9 
山の 高さ や， 離れて いる 距離， それに 天体の 半 

a など は， 地図 や 文献 を 調べて， 入の 手に よって 

人れ て やる にしても， コンピュータなら 簡単に や 

つての けます. 
それ 以前に， 例によって コンピュータに どんな 

や ぺ'. 'ノ ぐに う ヒ十る 力 やや， リ. た '、 て: 
りません. ^を 参照して ください. は i から わかる 
ように， 三 平方の 定理 を 使って， 

X 2 + R 2 =(H + R) 2 
X 2 + R 2 =H 2 +2HR + R 2 

X 2 = H 2 + 2HR は 無 《 でさる は ど 小さい 




尺 体 
主也 W 



网 



ら 3*72 



あさ (^) 

3 776 



したがって X 2 =2HR 
X =^HR 

この 計算 を， コンピュータに やらせれ ばよ いわ 
けです. ここで^ ~ (平方根） という， コンビ 
ュ一タ に はない 記号が 出て きました ね. 安' じ、 して 
ください. これに かわる ものが ちゃんと あるので 
す （はかに どんな 類似の ものが あるか は 後述し ま 
す）. SQR (式） がそれ です. 

では. プログラム を 作って みましょう. この 程 
度の プログラムなら， もし 拮め 込んだら 1 行か 2 

行で 害く こと も 可能でしょう. 1 行に 害いても， 
FOR〜NEXT はちゃん と 実行して くれます. こ 
こで はわ かりやす くす るた め， 何 行に も 分けて 示 
します. 



行 * 号 60 の R/1000 は m を km の-中-位に 直す 計 
算 です. 何 かの キー を 押す と， また 行 » 号 10 にか 
えります. 



ブ a ゲラ u 

10 CLS 

20 INPUT" テン クイ 

30 INPUT"T マノ 

40 FOR N=»l TO 

50 PRINT N; 



ノ 八：/ サイ 八 (km) 
タカ サ A <m> "，H 
10 
ウメ 



つ R 



60 X=SQR<2 拿 （R/1000) 拿 H 窜 N/10) 
70 し OCATE 12, 1+N 
80 PRINT X; H km" 
90 NEXT N 
100 INPUT IS 
110, GOTO 10 

テン タイ ノ AI7 ウイ A (km) 6378 



T7 


ノ タカ サ 


'、 (m> 3776 






3- ウメ 


69.4022 


km 




3" ウメ 


98. 1495 


km 




3" ウメ 


120.208 


km 


4 


3 っ乂 


138.804 


km 


5 


3* ウメ 


155. 188 


Km 


6 


:r ウメ 


1 70 km 






3" ウメ 


183-621 


km 


8 


3^ ウメ 


196. 299 


km 


9 


:r ウメ 


208, 207 


km 


lO IT ウメ 


219-469 


km 





フ 



何でもない プログラム ですから， もう ほとんど 

说 明の 必要 はない と 思います. T〉20, T=20. 

T く 20 が 正しければ （TRUE) THEN の あとに 

枝く 文 を 実行しなさい， という 意味です. もし， 

ELSE (でなければ） がつ いていたら. この あと 

に *ft く 文 を 実行し ます. もし 文のと ころ 力 《 行 番号 

になって いたら， その 行に 飛んで 行きます. また， 

ELSE 力 f なくて， IF 文 THEN 〜だけのと き， 文 

の 結果が 真で なければ， THEN の あとに 統く文 を 

無視して， 次の 行に 進みます. 
10 INPUT A 

20 IF A<5 THEN PRINT H XYZ" 
:GOTO 10 

30 PR I NT "ABC つ GOTO 10 

A が 5 よ リ 小さければ XYZ と， 5 以上で あれ 

ば ABC と 表示し 出します. これ を， 



タのブ 口 グラム を 



- h / 
—よ、 



10 A=A+1 

20 PRINT"ABC" 

30 IF A<10 THEN 10 

40 END 

ABC というの を 10 回 表示して くる はずです. 
ちょう ど F0R〜NEXT と 同じ 慟 きをさせる こと 
もで きる わけです. END は， プログラムの 実行 
を 中止させる ための 命令で， プログラムの どこに 
あっても かまいません. 上の ように一 番 終わりに 
ある 場合 は， 省略しても いっこうに かまいません. 
また， THEN の あとが 行 番号で あれば， THEN の 
かわり に GOTO であっても かまいません. 



ヤー ト （流れ図） で 害く と 上図の ようになります. 
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判断し， その 結 * 次第で 



コンピュータ 力 f 比較 
^なる 仕事 を するとい う， いかにも コンピュータ 
らしい 命令の 一つです. こう » くと むずかしそう 
です 力、 何でもない 命令です. もし〜 ならば〜 で 
す. という 簡単な 判断な のです から. 



IF 式 THEN ； 文 または 行 番号！ 
[ELSE ！文 または 行番母 |] 



とにかく 例を綢 ベて みまし よ う. 



INJPUTA 




YES 

1"くョ了曜 



PRINJT 

" X YZ" 



pRlh/T 
"ズ丫 Z" 




•'A ョ ひ 



INPUT" キミ ノ トシ ,1 ?%T 
IF T く 20 THEN PR INT' 'ミ t イネ:'" 
IF T=20 THEN PRINT"t! イシ"：/" 
IF T>20 THEN PRINTS け" 



o o o o 

1 2 3 4 



10 INPUT A 

20 IF A< 7 THEN 

IF A>4 THEN PRINT "XYZ" 
ELSE PRINT "UVW M 
ELSE PRINT "ABC" 
30 GOTO 10 

行 番号 20 で， THEN の あとに， また IF 文が 

出て くる 例 を 示して みました. この 部分 は 特に 4 

行に 害いて あります 力、 これ は その 構造 を わかり 

やすくす るた めで， 実際に は 1 行に 害いても よい 
のです. 多 « の F0R〜NEXT の 場合の ように， 

ネスト （人れ 子） の 状 K になって いますね. とに 
かく RUN させて みまし よ う. 

RUN 

？ Q A<Tz tt fjtxor , ABC^^ 

? Y 2 …-… 八〉 の?' 'tmv ふ "お. 

UVW 



m ここで 出て くる 式と いうの は， A = B + C の 

ような 算術 式と は， ちょっと 違います. このよう 

に <， >. = のよう な 記号 （関係 i« 算子 という） 
で 判断し， その 判断 結果が YES か NO かで 出て 
くる もの を 関係 式と いいます. IF 文で いう 式に 
は， 閱係 式の ほかに， 論理 式に も 使えます. 論理 式 
について は 後述し ます. 関係 浪算 子に は， 次の よ 
うな ものが あります. 
= 等しい 

*L く ない 
小さい 
大きい 

等しい か 小さい 
等しい か 大きい 



<>, >< 

< 

> 

<=, =< 



^ INKEY$ 

ここで， INPUT 文と ちょっと 似て いる INKEY 
$ という， 便利な 命令 を おぼえて おきましょう. 



10 A*=INKEY* 
20 IF A*=" 11 THEN 
30 PRINT A* 
40 GOTO 10 



10 



キー ボー ド から 好きな 文字 を キー インして やる 
ごとに， CRT 上に その 文字が 表示され ます. 別 
にどう という プログラム ではない のです 力、 この 
中で は IF〜THEN の ステート ノン ト がちゃんと 
働 いている のです. 

INKEY $ は， キ 一ボー ド から 文字 を統み 取る 
命佘 であ')， 行番サ 20 で その 文字が" "， つまり 
空文 字で あれば 行 番号 10 に^るよう になって いま 

す. m»n な^ 令です が. 'K>n 上 はいろ いろと 便利 
な 使い方が できます. 



1K/KE 丫ぉ も IF え を まわない 
乙" ネ' ゾ 用お 乙ビっ もさで' は？ 



10 



30 GOTO 

ま广 二ば 

20 PR' Nl A$; 

30 (SOTO 10 

食 際に^ み？ ぐ ^'さ! 



IF A+B^CfD THEN PRINT > 



^^矹 



楚 #ケ式77 れリ. 
tt ま 去し 7 この 式か" 
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WHILE 式 WEND 




〖:> INPUT Z 

0 WHILE Z>=10 

0 Z=Z - 1 

0 PRINT-'XYZ'^Z 

0 WEND 

0 GOTO 10 

これ を 実行す ると， まず Z の 値 をたず ねて きま 

す. そこで 1 桁の 数字 を 入れる と， 再度？ が 出 ま 

す. し 力、 し， 2 桁の 数字 を 人れ ると， その他から 

10 を 引いた 数 だけ XYZ が 表示され る はずです. 

1 桁の 数字 だと， 行 番号 20 が 真で なくなり， 素 通 

りする からです ね. 2 桁 だと， この結果が 真と な 

り， 30〜40 の 仕事 を 実行す る わけです. そして， 

この間に Z から 1 を 引く 仕^と. XYZ という 文 

字 列と， Z の愤を 表示す る仕舉 をし ます. 



君 ほ イ^) だ' か ら 

先 は 漣め ！ 




F0R〜NEXT の 場合 は， ループの 中 を 少な く 

とも 1 回 は 通ります. 

FOR 1=1 TO 1 
PRINT "XYZ" 
NEXT I 

N 
Z 

WHILE 文 は， FOR 〜 NEXT によく 似た ルー 
ブ であり ますが， IF 〜 THEN の 場合の ように， 
論理 式 または 関係 式に よって 判断し， その 結果が 
真で ある 問 だけ ルー ブを 回ります. そのため 初め 
から 真で はない 場合に は， この ループ を 1 回 も iifi 
らず， 紫 通りす る こと も あるので す. 



1 2 3 4 5 6 



o o o u Y 

1 2 3 R X 
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REM 











長い プログラム を 作る 場合， いろいろな 仕事 を 
する 部分が 出て きます. そこで， プログラムの 実 

行に は 関係ない 力、 何 か 注釈 文 を 入れて おきたい， 
というよ うな 場合が 少なくありません. そんなと 

き 利用す るの が REM 文です. REM の あとに^ 
く 文字 は， プログラムの 実行に は 関係し ません. 

10 REM I ォゥ W ソ" STOP! 
20 PRINT n XYZ" ： 'ヤメ O! 

たとえ END と 害こう 力、'， ： でつな いで ォヮリ 
ダゾ /と 強 溯しょう 力 <， コンピュータ は 知らん顔 
で 仕が を铳 けます. なお， REM のか わりに アポ 
スト ロフィ ' で 代用す る こと もで きます. 




S W1 係 演算子 を 使った 式で. ここで は * に &w( 

だけの 例 を あげ ましたが， 阑 辺に は 算術 i 寅 算子を 

使った 式が あっても かまわない わけです. そこで 

迎 になる のが， i お W 子の * 先 順位です. もちろ 

に、 ( ) は 全てに * 先し ます. 
1 
2 
3 
4 
5 
6 



7 



A 

一 （マイナス 符号） 
*. / 
MOD 
+ ， 一 

関係 iS (算子 （=， <>,〉<， >. <， 

<=, =<， 〉=， =>) 
この あとに^ 理 やが tft きます. 

m ピ ちろ 水 '犬まい？ 





m プログラムの 途中で I BREAK I キー を 押し 
たり， STOP または END の 命令に ぶっかる と， 
プログラム は そこで一 時 中止して しまいます. こ 
のよ うにして， プログラム を一 時 中断 させてから， 
変数の 中味 や 途中の 経過， プログラムの 内容な ど 

を^べ たりす る ことができます. また， 停止 させ 
た プログラム を W 開 させたい とき は， CONT また 
は GOTO 〜と 人れ てくだ さい. その後 を 実行 させ 
る ことができます. ただし， 中断 中の プログラム 
を 変お したと き は 再 関で きません. なお， 〜に は 
STOP 文の 次の 行 番号が， ま た I BREAK I キーて' 
停止した とき は， 停止した 行 番号が 人り ます. 



■o — 

20 

…- 

3 ぶ STOP 
uo 




Srop 



Stop 
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2.14 




L0AS> n O' 



ち 



ザ 寺 
レ 



(1: つた ブロ ダラ 
" " に. 忘れ 
作った 



7 と， 完 



コンビ ュ一タ は， せつ 力' 
, いったん ^源 を 切って 
てし まい， それでお しまい 
プログラム を 外部 記悚 装置に 記 使 させて おき， 必 
要に t& じて 再び コンピュータに 伝えて やる 方法が 
とられます. い プログラム を 作る^^, 途中の 
要所要所で， カーの 場合 全てが 消えて しまわない 
ように， 記録 を 取って おくの も 賢明な やり方で し 

X ラ- 

こんなと き， まずお はえて おいていた だきたい 

の 力、 ファイル ディスクり ブタ （ file descripter: 

ファイルの 区別） という 紫です. F — BASIC で 
は， 全ての 人出 力 装 JI を ファイル （書 Hi 差し） と 
いう « 念で 扱って います. そこで， 人出 力 装 IS と 

の W 報の やり取りに は， ファイル ディスクリプタ 
を 入れて， どの 装 it (デバイス） との 間な のか を 
はっきり させて やる 必要が あります. 

ファイル ディスクリプタ は. 次の 形式に なって 
います. 



"[デバイス 名] [[(オプション)] 

[ファイル 名]] 




LOAD" 睛〜" 



デバイス？;， オプション， ファイル 名 は， それ 
ぞれ « 略しても よい^ 合が あります. オプション 

は， 6 文卞 以内の 奖&卞 を かっこで くくって 指定 
します. 

ファイル 名 は. 8 字 以内， 文 T- 列の 中に： や" 
があって はいけ ません. 代表的な 人出 装！ B の デバ 
ィ 疋名は 次のと おりです. 



入出力 装置 名 


「デバイス 名 


入力 | 


出力 


キーボード 


K YBD ： 


〇 


X 


スクリーン 


SCRN ： 


X 


〇 


ブリン タ 


し PT0 ： 


X 


〇 


RS-232"— 0 


COM0 ： 


〇 


〇 


1 


COM 1 ： 


〇 


〇 


2 


COM2 ： 


〇 


〇 


3 


COM3 ： 


〇 


0 


カセッ ト テープ 


CA S 0 ： 


O 


0 


マロ ツビ一 ディ スク 0 


0 ： 


〇 


0 


1 


1 ： 


0 


〇 


2 


2 ： 


〇 


0 


3 


3 ： 


〇 


〇 


バブル カセッ ト 0 


BUBO ： 


〇 


〇 


1 


BUB 1 ： 


o 


〇 




RS - 232 - CTtf— 
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あなたの 作った ブ o グラム （メインメモリに 記 

憶され ている） を， カセットテープに 記録す る 操 
作 を やって みましょう. 使う 命令 は 次の 形式です. 




まず， あなたの プログラムに， ファイル 名 を 付 

けて く ださい. それ を "ABC" としましょう. 力 
セット テ一ブ レコーダ は CAS0 ： です. 最後の 0 
はォ 一で はなく， ゼロ だとい うこと に 注意して く 
ださい. テ一ブ レコーダ を セットして， 録音 状態 

に キー を セットし， 上記 表から わかる ように， 
SAVE "CAS0 ： ABC" I RETURN I とする 

と， テープ レコーダ は 記録し 始めます. 完了 は， 
Ready が 出る のて すぐ わかります. これで あなた 
の プログラム は， 安全に なった わけです. でもち 
よつ と 心配です ね. 苦労して 作った の 力 ( ， 万一 正 

確に,! ヒ« まされた かどう か 一 . 

こんなと き， 正確 かどう か を 確かめる^ 令 力、 
LOAD ？ です. 



LOAD? ["[CAS0 ： ] ファイル 名 "1 



フ アイ ルディ ス ク リブ タの 指定 を 《 略す る と 
テープの; ti)/j の ファイルと 比較 照合され ます. 



LOAD? "CAS0 ： ABC 

テープ を^のと ころまで 巻き戻し， カセット 
テープ レコーダの 再生 キー を 押してく ださい. 照 

合が 始まります. そして 正しく 記録され ていない 
とき は "Device I/O Error" と 出ます. 

0K でしたら これで 電源を切ろうと， 今までの 
プログラム を 全部 消して しまっても， 安全です. 
念のため にもう一 度， この 記録され た プログラム 
を コンピュータに 人れ てみ ましよ う. 




メモリに インプットした 後， ただちに 実行し ます 




メモリに インプット します. このまま では 灾行 
しません. 

カセット テ一ブ を 卷き旲 し， プログラム を 人れ 
直して みて ください. 

RUN "CAS0 ： ABC" I RETURN 1 
で， プログラムが ロード された 後， 英行を 開始す 
る はずです. 



( 



SAVE 

LOAD? 

LOAD 



ヽ 
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2.15 




たとえば， 平方根の 計算 をす る 命令 は， SQR 
(X) でした. Y = SQR(X) は Y を 2 回 掛ける と 
X の 値になる 数， という 意味です ね. もし， この 
计算を SQR という 簡単な 命令で できない と， か 

なり 面倒な 演算 式 をい ちいち 作って やらな く て は 
な'） ません. F — BASIC では， このよう によく 利 

用す る 関数 （数値 関数） は， 簡単な 命令に よって 
すぐ 実行で きる ようになって います. 



m SQR (式） ： Square (平方根） の 略です. 
SQR ( 2 ) =1.4U21 SQR (10) =3.16228 

i 寅算は ¥M 度で 実行され ます. 



か S は ひ) 



A 




m SGN (式） ： 式の が 正なら 1 

なら 一 1 になる 関数です. 



0 な ら 0， ft 



SGN(5) = 1 SGN(0) = 0 
SGN (— 5)= — 1 




圏 EXP (式）： e( e=2.71828)5r« とした 指数 

数の W を 与えます. 式の f おは， 87.3366 ぶ满で 
なくて はなり ません. 《 算は 単精度で 実行され ま 

す. 

EXP (2) =7.38906 EXP (10) =22026.5 

S RND (式） ： 0 と 1 との 間の 乱数 を 得る ことが 
できます. 式の 值が 正で あれば， 同じ 乱数の 系列 
の 負の 乱数 を 与え， 0 の 場合 は- 'つ 前に ％ 生した 
乱数 を， そして 負なら 新しい 舌し 数の 系 列 を 作 り 出 
します. 乱数 は コンピュータ 処理に いろいろと 利 

用され る 数です. あとでもう一 度 W ベ 直す ことに 

しましょう. 

10 FOR 1=1 TO 5 

20 PRINT RND(I) ;RND(0> ;RND<-I> 
30 NEXT 



Ready 

RUN 
. 59 1 065 
- 958935 
- 958935 
， 208935 
- 958935 



.591065 
• 958935 
- 958935 
, 208935 
， 958935 



， 522223 
.522223 

， 522223 
- 147223 



ム か 一^^ ス ， 

i LOG (式）： 式の 自然対数の 俺 を 出します. な 

お， 式の 値 は 正数でなくて はならず， また 演算 は 

単精度で 突 行され ます. 

LOG (2) =.693147 LOG (10) =2.30259 

W 丫 



X e e 
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S ABS (式）： absolute (艳対 値） の 略です. 
数学で いうと | ぬ 2 + 6| と 同じ 意味. つまり， マ 

ィ ナスの 数 も ブラスに してし まいます. ABS (— 
3.5) は 3.5 です ね. 

M SIN (式） ： 数学の sin r の 計算 をし ます. た 

だし， 式の 単位 は ラジアンです. '（度） ではない 
点に 気をつけて ください. もし • （度） の 式の SIN 

を 計算した かったら， ぼ/ 180 を 掛けて， ラジアン 
に 直して やる 必要 力 (あります. ここで？ r は 3. 14159 

ですから， 0.0174533 を 掛けても かまいません. 
なお. SIN などの 三角関数の 演算 は 単精度で 実 

行され ます. 三角関数 では. このほかに COS (式) 
TAN (式)， ATN (式） などが あります. ATN 
(式） は tan— 1 式の ことです. 



度 


ラジアン 


0 # 


0 


180 


n 


« 


3.14159* x/180 




または 0.0174533:r 



6 



r 



m int (式）： 式の 値 を. この 数 を 超えない 姣大 
の 祭 数に 変えて しまいます. 

INT(6.4)=6 INT(-6.4) = -7 
INT は integer (^数） の 略です. 



1 



+1 +2 +3 +4 




3 -1 -1 0 1 2. 3 



nx ( 式） ： 式の 值の 整数 部分 を 取り 出 し ます. 

FIX (6.4) = 6 FIX (- 6.4)= - 6 
FIX は， 固定す ると 力、 整える という 意味です. 



—么 
I 



X 

0 



+2 



—么 一 1 



^ 



丫 



て, 



CINT (式） ： 式の 使の 小数 部分 を 四 拾 五 人し 

に 変えて しまいます. 
CINT(6.4)=6 CINT(—6.4) = —6 
CINT (6.5) = 7 CINT ( — 6.5) = — 7 
二 だし， 式の 他が 一 32768 から 32767 までの 範 
いと エラーになります. 



X 



—ゥ 



一 ザ 



H +2 



Z 



1 O 1 




m CSNG (式)， CDB し （式）： CSNG は， 式の 
W を屮 -Mf$^ 式の 数 W (に， また CDBL は 式の 値 を 



'お,',^ 形式の 数 W (に 変え 



に 



まいます. 



CSNG ( 1234567890 ) = 1 • 23456 E + 09 
CDBL (1234567890) =1234567890 
Single か Double かの 違いと いう わけです. 



ィ も^ま 1 お 6 けた 

J で カ梯"？ で^! ブト 
されき ぞ' 




二久丄 d c b X 



I 一 



一一- 



c 



X 



c 
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サイ 二 



三角関数 は， コンピュータ 処理に よく 使われる 
の 一つです. そこで， 三角関数に あまり 親し 
みのない 方の ために， 簡単に ふれて おきます. よ 
ご存知の 方 は， 飛ばして くださって 桔 W です. 

三角形 ABC が あるとき， sin タ， cos 6, 



tan B は 次の よ う な 関係に あり ます. 
sin ^ = AB 



cos B — 



tan B 



AC 
AE 

BC 

sin タ _ AB 
"AC 
AB 



BC 



これ は， X — Y 座標 袖の 交点 を 中心とし， 半 S 

1 の 円 を 一定の ft 速度で 描く と， 図の ような 波 
形の カーブになります. この カーブが サイン カー 

ブ です. 横軸 は， 時 間 の^ 過と々 えてく ださい. 



G0O 'コ ガイ ン 
"Uvyv • タン シ ェンレ 




ィま y ぞ 



sin Sz = x, cos 6y= y t tan B t - z とするとき， 
逆の 関係に なって いる 閱数を アーク サイン， ァー 



クコ サイン， アーク タン ジ エント といい， 次の よ 
うに 表わします. 

sin _1 x= タ'， cos _I j/= 8 y% tan _1 z= 6* 

なお， BASIC で 使う 場合に は， タは ラジアン 
でなくて はなり ません. 

では， この 閣数を 便って， 正弦波 （サイン カー 
ブ） を 描く 方法 を 考えて みまし よ う. 

お 側の 図が サイン カーブです. この Iffi 線 は， 左 
側の ような， 半径が 1 の 円の 中に ある 直角三角形 
OPA で， OA が 矢印の 方向に 回転して 行く 場^, 
AP の 長さ を縱轴 に， 横 袖に タを 取って 描いた 線 

です. 

同様! こ し て cos タ， tan 6 を 取る と， 図の よ う に 
なります. 
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ザ 

に 



まう の 力、 '[_TA?J キーです. 



部分の 文字 を 消し 
BASIC では， 8 文字 ごとに 飛びます， 



= CTR し I + DJ 



1.10 で 示した キー 操作の^ きです' プロ 7 フム 

作成 を 効率よ く 進める ために. これらの K 能 を 体 
得して ください， 

圈 r^n キーに よく 似た 锄 きをす るの が 

キーです. キ 一は カーソルが— * 左寄りに 
あるとき は， 何の W きもし ません. 《 示されて い 

る 文字の 上 を， FH キー-を 使って 少しば か り 右の 
//に 移動して から， 押してみ てくだ さい. カー ゾ 
ル と ^な つ た 文卞か ら， "脷 の文卞 が 左 脚に は 動 
し， 今まであった カー' ノルの ん 測の 文'' f- がつ ぎつ 
ぎに iW えてし まいます. おく 押し « ける と' どん 
ど ん fe 侧の 文字 を ifi してし まい， そ の 分 だけ お 脚 
の文卞 が， 左側に もってさます. なお FM — 8 で 
は PBS1 キーに なって います. 
このような キー は， プログラム を 修正した リ削 

除した リ する と き. おに 有効に あなたの 手助け 
をす るに 違いありません. また， 1 CTR し 1 キー 

を 押しながら m キー を 押しても， 全く 间 w な 働 

きをし ます. 

m カーソルの キーの ある 文'？: も》 めて， それよ 

り 右側 以後の 文 宇 を 全部 消して し ま う のが cin 
キーです. 不要な^ 令 を 消して しまう とき. たい 
へん 便利です : 

r^iri = rcTRLi + rg] 

圈 一定の 文 卞 & ずつ お 側に 飛びながら. 飛んだ 



* EDIT 

これ は. キ 一操作ではありません 力、 や は リブ 
ログ ラム 作成のと き 便利な コ マン ド です. 



EDIT 行 番号 



EDIT 文 を^ 行す ると， I 由 hfii がク リアされ てき 
れいに なり， 指定され た 行の プログラムが 表示 ざ 

れて， カーソルが 行 S 号の K 後で, 《滅 します' 

m HARDC 

プリンタが 筏^ されて いると き， CRT 十. に 表 
示されて いる データ を. ブリン タで 打ち出し てく 
れ ます. 



HARDC [0 または 1 または 2] 



もし， あとに く 数字が 0 または 何もない とき 
は， キャラクタ （キーから 人れ る ことので きる 文 
-m) だけ を 表示し ます. また 1 のとき は， ドッ 
ト （点） の 表示 もします 力、 横ん 卞'】 の 1 ドッ ト分 
を 4 ドッ 卜に 拡大して， プリ ント します. 
ただし， 

靑， 赤. U, 白の ドッ ト …… * で ブリン ト 

at, 水色. 貧 色 は « ' 

黑の ドット は ブリント されない 

また 2 のとき は， （由 1 而 上 の 1 ドッ トを やはり 1 
ドットで ブリント します. ただし， 色の 付いた ド 
ット は， このように K 別せ ず， 全て 黒で 出ます' 



； 





WlDW0,2o wim^29 



図 



2on 





画面 制御 



CRT に^し 出したり， ブリン タで 欲に 印刷し 

出す ときの 文字 や 図形の， いろいろな 処理の し 方 
について if ベる 章です. 

他の 車の 場合 もそう です 力、 例に あげてい るプ 

ログ ラム は， いずれも 内容 を 理解して いただく た 

めの ものです. 特に 楽しい ものではありません が, 

これらの 命令 を 使った！; プロ グラム は， あなた 

の 腕 次第， 美しい 図形. 楽しい 図形 を 作って くだ 

さい. 




CRT 画面 ヒに 書け る 文字の 錄 数を决 める お 令 

で， その 形式 は 次のと おりです. 

I 1 

WIDTH [1 行の 文字 数] 

[, [ 1 画面の 行数] ] 

* ■ ■ 

BASIC が 起動 したと き. CRT 上に は 40'?: x 20 
行 (FM — 11 は 80 字 X25 行) の 文字が 出る ように 
なって います. しかし， 文卞の 人き さか 変わって 
もい いから. もつ と iffi つた 大きさ あるいは 行 lillFft 
で 表示 させたい， というと きに 利用す るの が この 
命令です. BASIC では， 次の を 逸ぶ ことが 
できます. 

WIDTH 40, 20 40 文卞， 20 行 

WIDTH 40, 25 40 文字, 25 行 

WIDTH 80. 20 80 文 宇, 20 行 

WIDTH 80， 25 80 文字， 25 行 

もら ろん， 処理の 結！ ft の 文' i: や グラフィック 記 
兮を 変えて やる ために， WIDTH 命令 をブロ ダラ 
ムの 中に 使う こと はでき ます 力、'， ここで はまず 直 
接 モードに よって， 突^に |'. の^ 令 を 人れ てみ て 



図 3 図 4 

ください. ゆ jlfii がクリ ヤーされ， Ready と あなた 
が 指^した WIDTH にしたがって 表示され ます. 
次べ一 ジの図 は， このよう にして 文 宇 数 や 行数 を 
^定 した 後， プログラム を&ポ させ， ハード コピ 
— (CRT に 出て いる 内容 を 印刷させる. HA rdC 
2 命令） をと つた ものと， そのと きの ディ スブレ 
ィ ifti 由 i の?/ なを^し ます. 

なお， この 命令 を 実行す ると， 次の 章で 出て く 
る CONSOLE 命令 は， コ ン ソール カラ— スィッチ 

の 部分 を 除いて 解除され ます. たとえば W i DTH , 

20 を 実行す ると， 同時に CONSOLE 0, 20. 0 

が^ 仃 されます. また， FM— 11 の 場合の WIDTH 

命令に は， 上記 以外に も いろいろな 機能が あ リ ま 

すが， その 詳細に ついては， F — BASIC 文法書 
を 参照して く ださい. 
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L IS 



Ready 



o ク" ゥ厶 



WIDTH 40, 20 の 場合 



WIDTH 40,25 の 場合 



ib as 

？ 8 WIDTH 68,28 
30 LOCftlE 15,2 

i% mnvfn な 

58 PRINT 
6fl FOR 1 =1 T07 
78 COLOR I 
68F0R j=l ID 72 
98 PRIMT J; 

iee WXT J 

118 »€XT I 



LIST 

ie as 

2t WIDTH 88.25 
38 LOCflTl 15,2 
48 PRINT ひ 乃 frp^U 9 
58 PRINT 

68 FOR 1:1 TD 7 



68 FOR I: 
78 COLOR 
88 FOR J 
96 PRINT 
m «XT 
ne NEXI 

Ready 



1 TO ?? ^ 

J; 
J 



WIDTH 80, 20 の 場合 



WIDTH 80、 25 の 場合 
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CIS 

W IDTH 4© , 20 
し OCATE 15,2 
PRINT" テスト フ" a ク、、 ラ^ 
PR INT 

FOR 1=1 TO マ 
CO し OR I 
FOR J=l TO 22 
PR INT J 
NEXT J 
i NEXT I 

WIDTH 80,20 

ie as 

26 WIDTH 86.26 

36 LOCATE 15,2 

49 PRINTS フ '0ク* ラ ぐ 

59 PRINT 

69 FOR 1=1 TO 7 

76 COLOR I 

89 FOR J=i TO 22 

99 PRINT J; 

108 NEXT J 

116 NEXT I 



WIDTH SO^P 

18 CLS 

WIDTH 88.25 
LOCATE 15.-2 
PRIMT n 77» 7*0 ク *ラ<" 

59 PRINT 

60 FOR 1=1 TO 7 
COLOR I 
FOR J=l TO 22 




h2S 

4© , 25 

^ふ ロク 
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キーボードから 入力した 命令文， あるいは デー 

タは I RETURN | ごとに, あるいは 文字 数が 1 行 
分 いっぱいになる ごとに， 1 行ず つ 追加され ます 
が、 CRT 上に は WIDTH で 指定され た 行数まで 
しか， —画面 同時に は 表示で きません. それ 以上 
の 行数 を 入れる と， 画面の 下から 新しい ものが 入 
り， その 分 だけ一 番 上の 行が 画面から 消えて いき 

* f . この こと を スクロールと いいます. Scroll 
は 巻物の ことで， 卷物を * いていく ような 感じに 
なる からです. 

CONSOLE は， スクロール する 範囲， すな わ 
ち スクロール ウィン ドウの 大きさ を 指定す る 命令 
で， その 形式 は 次のと おりです. 



CONSOLE !_ スクロール M 始行] 
[, [スクロール 行数] 

[，[ファンク ショ ン キー 表示 スィ ッ チ] 
[, コンソール カラー スィッチ]]] 



S スクロール M 始行 

スクロールし 始める 行の 指定です. たとえば 5 

と 指定す ると， 上から 6 行 目から スクロール を 開 
始 します. 

圏 スクロール 行数 

何 行 分 スクロールす るか を 示します. たとえ 
スクロール 開始 行 を 5 と 指定す ると， スクロール 

行数 は 全 行数から 5 を 引いた 值 でな く て はなり ま 

せん. 

S ファンクションキー * 示 スィッチ 

指定 するとき は 1 または 0 です. 1 を 指定す る 

と， ファンクションキーに 設定して ある 内容 力 f— 

番 下の 2 行に 表示され ます. ただし， この場合 は 
スクロール する 行数が 少なくなる ため， たとえば 

WIDTH 40, 20 であったら， これから 2 行分狨 
らして， CONSOLE 0,18, 1,0 または CO- 
NSOLE 0, 17, 1, 0 にしな 〈て はなり ませ 

ん. 



• 尊、 



，ヶ 




なお， このように ファンクションキー を 表示し 
た 状 » のとき は， L^tJJ キー を 押したり, CLS 

命令 を 実行したり しても ファンクションキーの 表 

示 は 消えません. 便利な 機能です ね. 

圈 コンソール カラー スィッチ 

0 か 1 を 指定し ます. 0 にす ると， 後述の CO- 
LOR 文で 指定す る 色で 表示され ますし， 1 にす 

ると 緑 1 色で 表示され るよ うになります. 

なお' 初期設定 は， CONSOLE 0， 20， 0, 0 に 
なって います. ただし， FM — 11 の 場合 は， コン 
ソ一 ルカ ラース イッチ はなく， CON soLE 0， 25. 
0 に 初期設定され ています. 

では 簡単な プロ グラム 例を綢 ベて みま しょう. 
実行した 結果 はつぎの ページに 示します. 

10 CLS 

20 WIDTH 40,20 
30 CONSO し E 0, 17, 1,0 
40 PRINT" テス 卜 フ 0 0ク "ラ厶 》 
50 PRINT 

60 FOR 1=1 TO 150 
70 PRINT I; 
80 NEXT I 
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图 CONSOLE 命令 を 実行す ると ，一般に CRTlii 
面が 三つの 部分に 分かれます. たとえば CONS- 
OLE 10， 5， 0， 0 では 図の ようになります. 



0 

9 
10 



14 

15 

\ 

19 



ページ モー ド 1 ifiAi 



スクロール 画面 



ベ一 ジモ一 ド 2 画面 



つまり， 10〜 14 行が スクロール する 部分で， 力 
一 ソル 移動 キ一 を 動かしても， この 範囲し か 動き 
ません. ところで， CLS は 画面の 全部 を 消して 
カーソルが ホーム ポジションに 移動す る 命令で し 



たね. これ を 使う と 別の ページ モードの 画 Bi につ 
つす ことができる のです. つまり 
CLS 〔消去 範囲 コー ド〕 
消去 範囲 コード は 0 から 3 (FM — 11 は 5) まで 
指定で き， つぎの ような 仕事 をし ます. 
0 …… 全 画面 を ク リ ァ する. 
1 …… スクロール 画面 をク リアす る. 
2 …… ベ一 ジ モード 1 画面 をク リアす る. 
3 …… ページ モ一 ド 2 阑 面をク リアす る. 
このような 仕事 をした 後， カーソル は今ク リア 
した 画面 （0 のとき は， スクロール iftiffi) の- St 
左上に 移動し ます. なお， この コード を 省略す る 
と， 0 とみな されます. ます. また， FM — 11 の 場 
合に は， 少し 別の 锄 きをし ますが， その 詳細に つ 
いて は 文法 害な ど を 参照して ください. 



^マ— どつ 
フ。 O ク" ラ^ 玄 



R 




3. 11,1,0 では 
エラ- になる in. 




WIDTH £ 4a 25" 

に Tin i お iui r- 




WIDTH の 
行 教^ 定ヒ 
CONSOLE^ 
ff 救^ 定 が 

逮 うとお もし 3" 
スクロース レの なち 

■£ す^ a. 



10 CONSOLE 5,5 

20 FOR 1=1 TO 3=PRINT"AAAAA た NEXT=C し S 2 
ス 0 FOR 1=1 TO 3 : PRINT"BBBBB" : MEXT : C し S 3 
40 FOR 1=1 TO 3:PRINT"CCCCC":NEXT 



玍ラ フ。 o ク" ラ 厶纟 
し 7 ご 5 ん〜 




2 

9 



1111111 

0 



00 060 0 0 



3417 




8888888012334 





mill « 
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ffl COLOR 

カラ一 CRT 上に カラーで 文字 や 図形 を表ボ させ 
る 方法です. カラー を表ポ させる に は， カラー コ 
—ド という 色 を 数 倣で 表す 方法が 使われます. 

カラー コード 表 





色 


コード 


色 


0(8) 




4(12) 




1(9) 


靑 


5(13) 


水 色 


2(10) 




6(14) 


め' 


3(11)| 


* 


7(15) 


白 



FM シリーズの 中で も 機 W: によって その 使い方 
に 多少の 相違点が あります 力 <, ここで は FM — 7 
を 中心に 説明 を 進めます. 

ところで， 色の 指定に は， COLOR というお 令 
が 使われます， 



COLOR L フォア グランド カラー] 

し バック グラウン ド カラー] 



むずかしい 用 SS がで てきました 力、 ここで は 初 
めの フォ アグラ ン ド カラ一 というの 力 《， CRT 上に 
写し だす 文字 や 図^の 色， そしてつ ぎの バック グ 
ラウンド カラーと いうの 力 文' p や Wff ミ以 外の 
景の 色と 考えて おいてく ださい. ただし， パック 
グラウンド カラ一 を 変 it するとき は， COLOR に 
よ る 命令の 後に， CLS の ft 令が あ つたと き 実行 さ 
れ ます. 

たとえば 
COLOR 2 ^RETURN 



と 人力して やる と， 以後の 文 宇 は * でお ボ され 
るよう になります. また 

COLOR 2,4: CLS 1 RETURN I 

によって， 以後の 表示 は 緑の 背 潸 に 赤の 文字 を 
表示す るよう になります. 

なお， BASIC を 起動した 初期の 状 想で は 
CO し OR 7, 0 

になって います. では この 初期の 状 ® に 直して 
からつ ぎの プログラム を 実行して みまし よ う. 




CO し OR 1,7 

PRJNT"A 0 —ソ T ル Dl/t-a-^" 
STOP 
CLS 

PR INT "八 *— ソナル 3 ン t a ユーラ" 

これ を 実行す ると， 靑で * パーソナル コンビ 
ユー タ， と 表示し 30 行で ストップ します. そこで 

CONTLRETURN] と 入れる と 実行 を 再 B8 し， 今 

度 は 白の 背景 色に 靑の 文字 を 表示 します. 

CONT という 命令 は， STOP や END の 命令に 
よって 実行 を 停止した とき， その プログラムの 枝 
きを 実行せ よと いう 命令で したね. 

これによ つて， 行 # 号 40 の CLS で 背景 色が 変 
わる ことが わかります. 

ところで， 前述の カラ 一コード 表に は， （ ） 
の 中に カラ一 コー ドに 8 を 加えた 数 « が 示して あ 

ります. この 数値 を 指定す ると 文字の 表示 色と 背 
景色が 逆にな つて 表示され ます. たとえば 
CO し OR 10 

で 赤の 背景 色に 黑の 文字が 表示 されます し 
COLOR 14， 2 ： CLS 

では， K の- ffK 色の 中に * の义 字が あらわれる 
わけです. では， もう ひとつ プログラムの 例 を 調 
ベて みましょう. 初めに は， 背景 色が 黑 でさ まざ 
まな 色で' パーソナル コンピュータ" と 表示， 



o C .(. o o 

1 2 3 4 5 
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続いて 背景 色の 異なる 黒の 文字 を 表示して く る は 

ずです. なお， 行 番号 60 と 110 は， コンピュータ 
にわ ざと 処理 時間 を 遅らせる ための 命令です. 

10 CO し OR 7，0 : CLS 

20 FOR 1=1 TO 500: NEXT I 

30 FOR J=l TO 7 

40 CO し OR J 

50 PRINT" 八。 ーソ すル コン t a ユーラ" 

60 FOR 1=1 TO 500: NEXT I 

70 MEX 丁 J 

80 FOR J=l TO 7 

90 CO し OR J+S 

100 PRINT"A 0 — ソ: n し っン t e ユーラ' • 
110 FOR 1=1 TO 500: NEXT 1 
120 NEXT J 

以上の プログラム は， FM — 8 や FM — 11 でも 
FM — 7 と M 様な 動作 をし ます. しかし， 正確に 
いうと これ は FM — 7ffl の * 令で あり. FM — 8 
や 11 は 結果 的に は 同 じ 形式に なる ため， ヒ 記の ブ 
ログ ラムで 同様な 動作 をす る， といった 方が 正し 
いのです. その 辺の ^細に ついては， F- BASIC 

文法 害な ど を 参照して ください. 

COLOR 文に は， つぎの ような もの もあります. 
この 命令 自身 は， FM— 7 およ ひ' FM — 11 に 通用 
する のです が， FM — 11 は 前述の 命令の 使い方が 
FM_ 7 と は 少し » なる ので， ここで 示した プロ 
グラムで はう まく 動作 をして くれません. FM — 
11 の 場合に ついては， 後で 触れる ことにします. 
なお， FM- 8 に は 適用で きません. 

COLOR = (パ レツ ト コード 
, * タ- コ- ド） 

パレットと は 絵 具のと く 道具の ことです ね. 前 
述の COLOR 文で 指定した， フォア グランド カラ 
—や バッ ク グラウン ド カラ一 を * 時に 変えて しま 
う 便利な 命令です. とにかく プログラム 例で 調べ 
てみ ましよ う. 




COLOR A，S 




COLO ぼん X) 

ノ\ 0 い ソムコ -K， カラ—: 7— P 
こヒ もで' きさ. ゝ H/ 

COLORCB, X) 

^どし. ハ。 レツ トコ —ドガ や o り 

ヒき は， M ぶん^つ g /こす 

3d 乙 はで "きない. 

10 CO し OR 4，0=匚し5 
20 PRINT"FM_ ゾリ ース" '• 
30 STOP 
40 CO し 0R=<4，2> 

50 STOP 

60 CO し 0R= (4,4) 

70 CO し OR 7，0=じし3 

行 番号 10 で * FM シリーズ" という PRINT 文の 

文 宇の 色 を綠に 指定して いますね. つぎに， 行 # 
号 40 で パ レツ ト コ一 ドに 当たる 4 を 2 に 16: してい 
ます. そこで 行 番号 30 でス ト ッブ した 後， C0NT 
と 人れ ると， 色が たちまち 赤に 変わって 行 番号 50 

で また 俘 止します. 
ふたたび C0NT と 人れ ると 行番ザ 60 でパ レツ ト 

コード を， もとの 4 に 戻して います. この 処理 を 
してお かないと， つぎに 別の 仕事 を させよう とす 
ると き， COLOR 4 で 赤に なって カラ 一コード 
と一 致しない ため 困って しまう からです. 

つまり， BASIC では 初期の 状態で は， パ レツ 
ト コ一 ドは カラ一 コ一 ドの 0〜 7 と一 致して いま 
す. したがって， この COLOR 文 を 使わなければ, 
パ レツ ト コード は カラ一 コードと 全く 同じように 
使用す る ことができる のです. 
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別の プログラム 例によって， さらに この COLOR 
文の 使い方 を 調べて みまし よ う. 

10 CO し OR 2 
20 C し S 

30 LOCATE 13， 10 

40 PR INT —ソ: T ル コン ラ'' 

50 FOR 1=1 TO 3000: NEXT I 

60 CO し 0R= (2， 7> 

70 FOR 1=1 TO 3000: NEXT I 

80 CO し 0R=(2，6〉 

90 FOR 1=1 TO 3000: NEXT I 

100 CO し DR=(2，5> 

110 FOR 1=1 TO 3000: NEXT I 

120 CC^OR-AS) 

130 FOR 1=1 TO 3000: NEXT I 

140 CO し OR 7 : CIS 

この プログラム を^ 行す ると. ゆ iifii 中央に 表示 

されて いる * パーソナル コンピュータ" r の 文字 
が ネオンサイン のように 色 を 変えて いきます. す 

なわち， 行 番号 10 で 示した フォア グランド カラー 
である 2 を， 行 * 兮 60. 80. 120 の パレ •/ ト コー ド 
で， いろいろな HtW の カラ一 コードに 割りつ けて 
いるた めに， それにしたがって， つぎつぎに 色が 
変わって いる わけです. 

今度 は， 文字 だけで はなく 背景 色 もこの 命令文 
を 使って いろいろと 変化 させて みまし よ う. 

10 CO し OR 1,2 s CIS 

20 し OCATE 13,9 

30 PR INT" A e —ソ: Til/ ：} ン t 1 * ユーラ" 

40 CO し (〕R 3 

50 し OCATE 16, 11 

60 PRINT"FM —シ ソース"'' 

70 FOR 1=1 TO 3000: NEXT I 

80 CO し 0R=<2，4> 

90 FOR 1=1 TO 3000: NEXT I 

100 CO し 0R=(1，0) 

1 10 FOR 1=1 TO 3000: NEXT I 

120 CO し 0R=<1，2) SCO し 0R=(3， 1〉 
130 FOR 1=1 TO 3000: NEXT I 
140 CO し 0R=(1 ，7〉 ： C0 し 0R=<2， 1〉 
に 0 し 0R=(3，2〉 

150 FOR 1=1 TO 3000: NEXT I 
160 CO し OR 7，0 : CL_S 
170 FOR 1=1 TO 7 
180 CO し OR=(I, I ) 
190 NEXT I 

この プログラム では， 初めの 段階で は， 上 糊の 
文字が 靑， 下側の 文字が 紫， そして 背景 色が 赤の 



状態から 始まります. そして， 少しずつ 時間 をお 
いて 各 文字 や 背景の 色が 切 り 替わって いく のが， 
分かり ますね. このように， 背景の ような 大きな 
面 « でも， その 色 を 瞬時に 切り替える ことができ 
るの 力、 ハ。 レット コード を 使った この 命令のお も 
しろい ところです. 

なお， 行 番号 170〜190 は， パレット コードと 力 
ラー コードと が 1 対 1 の 対応 をし なくなった とき 
に， 初期の 状態に もどして やる ための プログラム 
です. もっとも， ここに 示した プログラムの 例で 
は， すべての コードが 衬応 しなくな つたわけ では 
ありません 力 ( ， このような 処理して おけば， どの 
コードが 変わって しまった 力、， などと いちいち^ 
える 必要が あり ません. 

ここで， FM — 11 の 場 介 の COLOR 文に ついて 
触れて おきます. なお， 详 細に ついては 文^ ^ を 
多 照して ください. 



COLOR [テキスト カラー] 

[, [バックグラウンド カラー] 

し [フォアグラウンド カラー] 
し アトリビュート] ] ] 



FM— 7 の 場合よりも， 指定 《 目が 多くな つて 
いますね. はじめの テキスト カラーと いうの は， 
表示す る 文字の 色 を 設定す ると ころです. ただし 
これ は パレ ット コードで はなく カラー コ一 ド なの 
で， パレット を 変化 させても， 文字の 色 を 変える 
こと はでき ません. 

つぎの バッ ク グラウンド カラ一 と フォア グラウ 
ンド カラーに ついては， FM— 7 の 場合と 同じ 扱 
いです. したがって， パレット コードに より 色 を 
変える ことができます. さき 程の プログラム 例 は 
FM- 7 の 場合の 作り方 をして いるので， FM — 11 
ではう まく 動いて くれないの です. 命令の 指定の 
方法 を 少し 変更して やれ ^ 正常に 動いて くれ ま 
すね. なお， この 本で これ 以降に のべる カラーに 
閱 する 説明で も 同様な ことが いえます. たとえば, 
FM — 11 で テキスト カラ一 や バック グラウン ドカ 

ラーの 指定 を 省略し， フォア グランド カラ一 だけ 
を 指定したい ときには 
COLOR , ， X 

のように， 〔 〕 付きの 指定が ある 場合， 不必 
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要な コード は 省略しても よいので すが， コンマ だ 
け は 残さなくて はなり ません. つぎの アト リビュ 
ート だけ を 指示した いとき は 

CO し OR , , , Y 

でよ いわけです. 

设 後の アトリビュート というの は， 画面に 表示 
している 文 宇に， いろいろな 機能 を あたえる 部分 
で， 0 から 7 までの 数字で あらわします. 

0 通常の 表示 

1 反転 表示 

2 点滅 表示 

3 反転 点滅 表示 

4 高輝度 表 ^ 

5 高譚度 反 £3^ 

6 SSW 度 点滅 表示 

7 高咪度 反 fc,' ケ滅 表示 

fflSCREEN 

FM — 7 および 11 に は SCREEN とい う 命令 も 

あります. 色 は靑， 赤， 綠の 3 原 fe でで きてい ま 
す. そして， CRT 画面の すべての 点 は， ビデオ RAM 

(VRAM) という メモリに 記 * されて います. そ 

こで， この VRAM に対してめ: 筏 動作 を指ポ してや 

るた めの 命令です. FM — 7 では. つぎの 命令 を 

使う ことができます. 

SCREEN [アクティブ VRAM3 - トリ， 
[, ディスプレイ VRAM コード] 



VRAM の 中で は， 色の 逮 いは 3 ビッ トに 纣に 'し 
ています. つまり， 下の 表の ようになります. 





ビ 


ビ 


ビ I 






ッ 


ッ 






色の コ一 ド 




ト 


卜 


色 




2 


1 


0 






G 


R 


B 




0 


f 1 

0 ： 


0 ： 


0 




1 


0 ： 


0 ： 


1 


靑 


2 


0 


： 1 ： 


0 


赤 


3 


0 


1 ： 


1 


紫 


4 


1 


： 0 ： 


0 


綠 


5 


1 


0 


1 


水色 


6 


1 


； 1 


： 0 


黄 


7 


1 


： 1 


1 


白 



さて， ここで 出て きた SCREEN という 命令の 
中で， アクティブ VRAM コードと いうの は， この 
部分で 色の コード を 指定す ると， それ 以降 は その 
ビット 以外に は， 害き 込みが できなくなる こと を 
あらわして いるので す. 

たとえば， COLOR 7 の 状態で 
SCREEN 2 ： PRINT" A" 

と 入れる と， 2 は R (赤) 以外の ビットに 害き 込 

むこと がで きなくなる 状態です から， 赤で A と 表 

示して きます. 

つぎの ディ ス ブレイ VRAM コ一 ド というの は， 

以降 ここで 指定した ビッ ト だけ を， CRT 画面に 表 

示す る 働き をし ます. 
た と えば， COLOR 7 の 状態で 

SCREEN 6,5: PRINT'' A" 

とした M を 考えて みましょう. アクティブ VRAM 
コード は 6 ですから， G (緑） と R (赤） のビッ 
トは 1 であり， このままの 状態で あれば 武の 文字 
がで る はずです. ところ 力 、ディスプレイ VRAM 

コー ドの方 は G と B (靑） が 1 になって いるた め, 
実 R に 圃 面に 表示され る 文字 は G(t*) になる はず 

です. 

なお， 初期の 段 P» では SCREEN 7, 7 の 状態 
になって います. 上記の ように SCREEN をい ろ 

いろと 変えた あとで， 元の 状態に 戾 したいと き は, 
PF9 を 押す と SCREEN 7. 7 にも ど'） ます. 



g は G 义 B の 3 ヒル?" 1 

で' き る. \^jf^r 





( (g)(^)(B) 

ァヮ 7 ィフ' ゾ/? AM ど I^^IV 

アンス り 1 T~ 

二つ ゥ戶 ぶ严，" や," 3 れぇ 



11 二ち， た け ゆて 
に 表き、 される. ユー 

77 フ—; ^JT、 





では， ここで 簡単な プログラムの 例 を^べ てみ 

ましょう. 

10 CO し OR 6，3=CLS 

20 し OCATE 13, 10 

30 ド611\11""八》—ソ1"ル Z3^t a ユーラ'' 

40 FOR 1=1 TO 5000: NEXT I 

50 SCREEN ，4 

60 FOR 1=1 TO 5000: NEXT I 
70 SCREEN ,1 

80 FOR 1=1 TO 5000: NEXT I 

90 SCREEN 3, 3 

100 CO し OR 7, 1=じし5 

110 LOCATE 13, 10 

120 PRINT''A C —V:ni/ コン t。：i ータ" 

130 FOR 1=1 TO 5000: NEXT I 

140 SCREEN 7,7 

150 CO し OR 7，0 : (：し5 

初めに 紫の W 景の 中に « の 文字が. 統 いて 黑 の 
^^の 中に の 文字が， つぎに 靑の 背景の 中に 黑 
の 文字が， そして «: 後に 靑の 背景の 中に 紫の 文字 
が 表示され てきます ね. なお， 行 * 号 140, 150 は 
初期の 状態に も どす ための プロ グラムです. 

同じ SCREEN 文 も， FM — 11 の 場合 は i 由 jffi の 
解像度が よ く （640X200 または 640X400 ドッ ト 
また 内蔵して いる グラフ ィ ック VRAM の 数 も 多い 
(192KB) などの ため， さらに 維な 機能 を 持って 
います. ここで は， 簡単に その ft 要 を 示す ことに 
します. 烊細は 文法 お を 参照して ください. 



SCREEN [画面 モード] [，[アクティブ ページ] 
[, [ディスプレイ ページ] し [ァク ティ 

コード] し [ビデオ 出力 コード] ] ] ] ] 



19] 面 モード は， グラフィックし 由 jffi の 解像度 や 力 
ラー 表示， 単色 表示， スクロール モード を 設定す 
ると ころです. 

アクティブ ページ は， VRAM のどの ページに 説 
み 書きす るか を 設定す ると ころです. 

ディ ス ブレイべ一 ジは， VRAM のどの ページ を 
画面に 表示す るか を 設定す る ところです. 

アクティブ パンク コード は， 単色 モードと ダラ 
フィックス クロール モードの ときに， 三つ ある ハ- 
ンクのう ちの， どの パンクが 统 み 書き 可能 か を 指 
定 する と ころです. 

ディスプレイ パンク コード は， i|i 色 モードと グ 

ラフィック スクロール モードの とき， 三つ ある バ 
ンク のうちの， どの バンク を间 面に *リく する か を 
指定す ると ころです. 

ビデオ 出力 コード は， カラー CRT と グリーン 
CRT へ. それぞれ グラフ ィ ック 画面と テキスト 幽 

面 を， どのような 組み合わせで 出力す るか を 設定 
すると ころです. 




EM ら, 4 ZUM^M.^If) 

0 




カラ^ > yTr.T ^kZlM 

ん化 ゾ RAW VRAM 

0^1 ラ1 — づ や 1 
G{r^1 づ 1 — o め o 



綠き、 お 



-B や 0 — 。 



1 中 o 
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O ゥ 0 




つまい 



J たな 翼 令 11 考、 ん 

15 >J よぐ ST 小る よ 

• 力- フ—ぇ ウ^ J 



7 クーア ィァ VRAM" 




G-hr ベ マ ふ 1 になつ 

Zu2d «aj ふ^ rrs ^な 




いよいよ， CRT 上に 細かく. なや 線 を 描いたり， 
色 を 塗つ た りする^ 令の 作 ') おです. 

まず 知っていた だきたい こと は. 文' r- や 記号 を 

表示 するとき に たとえば LOCATE 文で 座標 上 
のどめ 位-; E か を 指定した ように， CRT h の 全て 
の 点が 座標に よ つ て 指定で きる という ことです. 

I C し S I キ 一を 押して, i«【fi をき れいに した あ 
と， PSET (300, 100, 4 ) I RETURN1 と 実行 
してみ てくだ さい. CRT の ほぼ 中央 付近に. ボ 

ッンと fat の 点が' びし 出されます. この 位; a は， （ ) 

の 中の 初めの 二つの 数 300, 100 によって， fiT4f 

された teas なのです. 次の 4 は パレ ッ トコ 一 ドで 
ある こと はすぐ わかり ますね. 



なお， FM — 7 およ ひ' FM— 8 の CRT は， *ii 
640, 横 200 の 点の * まリ でお ボ されます か， FM 
11 て は 640X400 です. ここで は 640X200 の 

W を 中心に 話 を 進め; C いるた め, FM — 11 に 適用 
するとき は， この ことに 注 •& してく ださい. 

[PSET (水平 位置， 垂直 位置 

[，[バレット コード] [，機能]]) 

こ こで 水平 位置， 垂直 位 as を 表示す る ドッ トの 

'•KtS は， 必ずしもお & やでなくて もよ く， や 

の 場^ は 小 位の 桁が ffli?? 丑 人され て， お 

& にな •） ます. たとえば （12.345, 67.89 ) なら 
(12， 68) になる わけです. 

[ ] の 部分 は 場合によ 1 ) 略しても かまわない 
という 意味で ある こと は， 今までの 命令に 対する 

Mm と 同じ です が， こ こ で パレ ッ トコ一 ドを 

すると. iKift までの COLOR 文で 使われて いた 指 
'4f 色になる こと はいう まで もありません. 



(0,0) 



(2^, 0) 




(2 

(2 ラ^ク 7 ララ） 



次 は， 三角関数 （2. 16 参照） の sin, cos の 曲 
線 を 描かせる プログラムです. 白 棟で sin 曲線 を， 
？ f 線で cos 曲線 を 描きます. 

10 C し SsCO し OR 7,0 

20 PRINT "SIN(A〉，C0S<A〉" 

30 PI=3. 14159:D=PI/180 

40 FOR 1=0 TO 360 

50 X=100+I 

60 Y=100-SIN(D*I) *50 

70 PSETCX, Y) 

80 Z=100-C0S(D*I) *50 

90 PSET<X,Z ? 1) 

100 NEXT I 

PSET の K» もに ^人す る r t?» 能」 に は， ^理式 
である AND. OR, X0R のい ずれ かが 指' 能 

です （《»il 式の 説明 は 後 if します）. 

たとえば OR とすると. 现在 iftiifii にお^ してい 
る ドツ トのパ レツ ト コード （3 桁の 2 進数） と， 
この 命令文で 指定した パレット コードとの 論理和 
の 結 * 得 ら れ た 力 ラーが 表示 される ことにな リま 
す. 

仮に， 現在 S 示して いる 色 を 《 とします. 綠の 

コード は 4, つまり 2 進数で いうと 100 です. そ 
こで， PSET (310, 100, 3, 0R) とすると， 
コード 3 は 紫です から， 紫の 点が 表示され る はず 
です が， OR が あるた め， 
U 4 100 

一 紫 一 3 * 011 一 

論理和^^ 111 

の 結 *， コード は 111， つま 1 ) 7 であり， 白の 点 
が 出て く る わけです. 

SIN<A> ,COS<A> 



この一 連の 動き を 実行して みると， 次の プロ グ 
ラムになります. ただし， この プログラム では， 
動きが よく わかる ようにす るた め， 熳終 的に 三つ 
の 点 を 表示す るよう にして います. CRT 上の 色 
の 変化 をよ く 》1 察して ください. 

もし， 0R のか わりに AND, つまり 論理 精に す 
ると， 

rt 7 ► ill 

紫 3 ► 011 

論理 《 —— - 011 

011 は 3 ですから， 紫色の 点が 出て きます. 

10 CO し OR 7,0 
20 C し S 

30 PSET (290, 1 00 ) 
40 PSET (310, 100,4〉 
50 STOP 

60 PSET (290, 100， 1， AND) 
70 STOP 

80 PSET (310, 100, 3, OR) 
90 STOP 

100 PSET (310, 100, 3, AND) 
110 PSET (300, 100, 5, OR) 
120 END 

ここで STOP の 命令 は， プログラム を一 時 停 
止す る 《 能 を 持って います. 時 停止した 上で， 
どこで STOP した かわかる ように， 行 * り-をお ホ 
してきます. 再び 突 行を統 けさせる に は， C0NT 
のコ マン ドを 人れ てくだ さい. 'Ji 行 を WIS] します. 

AMP 1 命ぜ や 音 

OR …… '- ^K^a 
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10 C し s 

20 FOR 1=1 TO 8 

30 FOR J=0 TO 20 

40 FOR K=300 TO 300+3*J 

50 PSEKK, J + 100, I) 

60 NEXT K, J 

70 FOR J=0 TO 20 

80 FOR K=300 TO 300+3 ね 

90 PRESET <K, J+100) 

1 00 NEXT K, J, I 




10 CO し OR, 4 
20 C し S 

30 FOR 1=0 TO 440 
40 PSEK100+I, 100,7) 
50 NEXT I 

60 FOR J=0 TO 1000: NEXT J 
70 FOR 1=0 TO 440 
80 PRESET ( 1 00+ I , 1 00 > 
90 NEXT I 




行畲罟 40ズ 白锒 を^い r こぁヒ 

杆 番号 20 ガ^す， 



3.5 




この 命令 は， .ft の 色 を If K 色と M じ 色に してし 
まいます. 使い方に よって は， 棟 を 消して しまう， 
と 考える ことができます. 



PRESET (水平 位置， 垂直 位置) 



PSET で 描いた sin, cos 曲線 を PRESET で 

m してし まう プログラム を 作って みまし よ う. 

行番兮 110 以後が 新し く 追加した PRESET で, 
曲線 を i 肖して しまう 命令です. 

C し S 

PRINT"SIN(A) ,COS(A) " 
PI=3. 14159:D=PI/180 
FOR 1=0 TO 360 
X=100+I 

Y=100-SIN(D*I ) *50 
PSEKX, Y) 
Z=100-C0S(D*I)*50 
PSEKX, Z, 1) 
NEXT I 

FOR 1=0 TO 360 
X=100+I 

Y=100-SIN(D*I) *50 
140 PRESET <X,Y) 
150 Z=100-C0S(D*I>*50 
160 PRESET (X, 2) 
170 NEXT I 




o o o o 

o o- o c- o c- o c- o o 1 2 3 

12 3 4 5 6 7 8 9 1111 
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3.6 



LINE 




CIS 

20 A*="ABCDE H 

30 し INESXOjO) — （10， 10〉 ， A 本，， B 
40 LOCATE 0， 11 



CRT 上に 線 や 箱 を m く ための LINE の 命令に 
： よ. 文字 や 記号の キャラクタ を 使う 方法と， ドッ 
ト による 方法と があります. まず， キャラクタに 
よる 方法 を 示します. 

LINE [@][(Xi, も）] 一 （X2, Y 2 ), 
文字列 [，[パレット コード] 



Ready 



ッ ト マークと いいます. 
Xi. Y ，およ ひ 'X 2 , Y 2 は RI のように CRT h 
の 座標 を 示します. もし X し を 省略した とき 

は， W 前に 突 行され た LINE 文の X2, Y2 力ぐ 新し 
い LINE 文の Xk Yi になります. 



10 C し S 

20 A*="ABCDE" 

30 し INE5><0,0 卜" 0， 10> , AS 

2,BF 
40 し OCATE O, 11 



LINE3(0，0>—(20，20) ， "ABC" ? 4 



ABC という 文字列の) の 文字 A で， 座標 0, 
0 から 20, 20 まで を ^線 状に 結んで くれます. な 

お， このと きの 文字の 色 は パレット コードが 4 で 
あるた め， 棘です. 

し INE5HO，0) - QO^O) ， "ABC",4，B 

13 は Box の 略です. つまり， （0. 0) — （20, 
20) を纣角 線と する 長方形 状に A が 並びます. 

し INESXC^O ト （20 ? 20) ， "ABC M ,4,BF 

13 のか わりに BF にす ると， K 方形の 内側 も 全 
て A によって 満たされて しまいます. 

一 0,0 今 0,。 



Ready 



Ik ソ コン^/ i ま 





CC<ECC<E<E<S<C<E 




•HT^E の夂 



ドット を 使って 線 や 箱 を 描く の は， 次の 命令に 
よります， 



LINE [@][(X" も)] 一 （X2, Y 2 ), 

)]] 



機能 [，[バレ ッ トコ— ド] 




B 
BF 



キャラクタの^ 合と 興なる 点 は， 文字列の とこ 

ろが 機能に かわって いる^です. 
聽 i， PSET, PRESET, AND. OR. 

XOR のい ずれ か を 指定し ます. 

LINE^HCVKSOJO) , PSET, 4 

この場合の ゅ樣は キャラクタ ではない ので. f* 
0〜639, 縦 0 〜 199 になる わけです. 0,0〜20, 

20 の 間 を 直線で tt んで くれます. 

し INE5) (0，0) - (20, 20) , PSET, 4, B 
し INESHCSCO- (20 ? 20〉 ,PSET,4,BF 

この 总 味 はもう おわかりで すね. 注意し なくて 
はなら な いのは， もし パレ ッ ト コ一 ドを 省略して， 
B または BF を 指定 するとき は. コンマ を 二つ 並 
ベて やらな く て はならない という 点です. 
10 CU3 

20 し INES)(0,0〉 - （50，50〉 ？ PSET，4，BF 
30 CO し OR 5 

40 LINESXSO^O-dlO, 110) ,PSET, 
50 LOCATE 0， 11 

ここで， を ^こする と， B または BF を変& 

とみな し， パレット コードが 0 になって しまい ま 

す. なお， パレット コード 指定 を 省略す ると • お前 

の COLOR 文の パレ ッ ト コ— ドで 表示され ます. 
能のと ころ を AND, OR. X0K で 指定した 

とき は. 桁 ^色と 現在 ゆ 油に 表が; されて いる パレ 
ッ ト コー ド との^ 理 i 班算を 実行し， その 結果の 力 
ラーで * 示して きます. 論琿. ^算 について は， 3. 
4PSET のと ころで 練お しました ね. これ を 参照 



10 C し S 

20 し INESXC^O) — （300 ? 100〉 ？ 

PSET,4,BF 
30 LOCATE 0, 11 

(300,0) 



(0,0) 







〔0,1 oo) 



(lOOylOO) 



10 c し s 

20 し INE5)(0 ? 0〉 — （300 ハ 00 し 
PSET,4,BF 

PRESET, 4, BF 
40 LOCATE 0， 11 



(0,0) 



300, O ) 









(50 t W 














きく 



(300,100) 

BF 
10 C し S 

20 し INE5>(0,0〉 一 （300, 100) ， 

PSET,4,BF 
30 し INE3(50，20> - （250，80〉 

0R,2,BF 
40 LOCATE 0, 11 



(o,o) 



(Soo f o) 
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点と 点と を [fi 線で 結ぶ 命令が この ステー ト メ 
ト です. 



ノ 



250 — ABC 声 

俩 



CONNECT (Xi, Yi)-(X2,Y 2 )[-(X3. 

y 3 )] …… 

[，[パレット コード] [， 機能]〕 

点が いくつ も ある 場合に は， …… 一 (X,,Y,) — 
'…によって つないで いく ことができます. 

機能の 部分 は PSET, PRESET, AND, OR. 

XOR のい ずれ かがく る わけです. 

この^ 令に は， 持に むずかしい 問 題 はあり ませ 

に' では 3.4 PSET のと ころで 示した， S i n , cos 

曲線に 座 《«(Xtt, Y 袖） を 追加して みる こと 

にします. ここで 行 番号 110, 120 がそれ です. 
持に 説明の 必要はありません ね. また， この 指定 

によって， 赤線の 座標 袖が 描き出され るの は なぜ 
か， プログラムから 検时 してく ださい. 

10 C し S 

20 PRINT"SIN(A) ,C0S(A) " 

30 PI=3. i4159:D=PI/180 

40 FOR 1=0 TO 360 

50 X=100+I 

60 Y=100-SIN(D*I) *50 

70 PSET(X, Y) 

80 Z=100-C0S(D*I) *50 
90 PSET <X, 2,1) 
100 NEXT I 

110 CONNECT (100, 100)- 
(460, 1 00 ) , 2 j, PSET 
120 CONNECT (100, 50 >- 
< 1 00 , 150) ,2„PSET 

系 リ医し ら"、 1 

-77(7) CRT ^ \ M 
OX4-00 に '斗な つ? c 55 ! 

乙' まこし 主, さ ザク に 7 
：： ヒ もれみ お ノ 
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SYMBOL 




に ドット を 使って 文字 を 表示す る 命令で 
あり， 文字列の 角度， 大きさ を 指定に よって 変え 
る ことができます. 



SYMBOL (X, Y)， 文字列， 横 倍率， 

縱 倍率し [パレ ッ トコ 一 ド] 

t,[wc コード] [，機 《]]] 



簡単な プログラム 例 を 示します. 



10 c し s 

20 SVMBO し ， 80 ん' 'ABC" 




RUN) り-もも^ 



初めの （250, 80) は， ドットの 座標での 座標 
指定です. 図の ように， 文字列の 表示 を 始める 枠 
内の， 左上の ドット 座標 を 示します. この プロ グ 
ラ ムの 例で は 終わ りから 2 番目 の 文字が 0 になつ 
ている ため， ノ一 マルな 位 S を 表示して いますが， 
この 数字 を 0〜3 と 変えて， どの位 置から 文字列 
の 表示が 始まる か 確認して おく とよいで しょ う. 
要するに， この 点から ABC の 文字列が 害き 始め 
られ ると いう こと を 知って おいてく ださい. 



F 
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座標の 指定の 次が 文字列です. ここ を 文字 変数 
にして， 文字列の 内容 を 別のと ころて 定 してや 

る こと ももち ろん 可能です. このように， ここで 
示した 文字 や 数字 を 変数の 扱いに して， 変数の 中 
に 人って いる 文字 や 数字 を 別のと ころで 指定して 
やる こと は， どの 場合 も 可能です. 
次の 二つが 文字の 横 倍牢， at 倍率 を 示す 数字で 

す. 文字 は， 8X 倍率 ビットの 大きさで 表示され 

てきます. 



パレット コードの 指定 は， もつ 何度も 出て きた 
ので 省略し ます. 

角度 コード は 0 力 f 正常， 1 が 時計と 反対 方向に 
90', 2 力、 '180', 3 が 270' 回転した 状態で 表示 
されます. 

機能 は PSET, PRESET, AND, OR, XOR, 
NOT の 指定が 可能です. 



10 C し s 

20 SYMBKSSO'O) 
25 STOP 

30 SYMBO し （250，0〉 



"し 31''，5，3， 1 



•I 



OS 



II 



Color マ …-- 

COLOR な"…' 

5，3，2，0，0R COLOR 3 f 

25 T'STOP^zrcOHTtX^ 





1 OR 2=3 
1 0 01 

2- 010 



OR 



3 



011 



10 c し s 

20 SYME<0L(200，35),''Sin ll Cos カーフ""， 2 1 ■« 4 
30 D=3. 14159/180 
40 FOR 1=0 TO 360 
50 X=100+I 

60 Y=100-SIN(D*I) *50 

70 PSET(X,Y〉 

BO Z=100-C0S (D*I ) *50 

90 PSET (X, Z， 1 > 

100 NEXT I 

110 CONNECT (100, 100) -(460, 100) ,2, PSET 
120 CONNECT ( 1 00 , 50 > - ( 1 00 , 150) ,2, PSET 
1 30 SYMBO し <68，46> , " + 1'、2, 1,2 
140 SYMBO し （83，96》 ， "0"，2, 1，2 
150 SYM 亂 （68， 14" ， " - "A 1，2 

Sin, Cos カーフ、、 

+1 



免 瓖ゃ大 えさ^ 恕 え？ 
^ しち ィ列 




左 は ^^や サインお" 
, 二， 匸丁 #4 "ト 

ィ凌 つ た m だ' 




ABC 
ABC 



ABC 

owe 



3.9 


pT ― 1 

CIRC し t 


CRT 上の あなたの 希望す る 位置に， あなたの 
希望す る 色， 形の 円 を 描いて みません か？ 


CIRC し E[ 

[ 
[ 


@] (水平 位置， 垂直 位置）， 半径 

, [パレ ッ トコ 一 ド] [, [比率] 

, [M 始 位置] [, [終了 位置] 

, [{^}] [, 機能]：！]]]] 



(水平 位置， 垂直 位！！） は， 円の 中心 を 示す 位 

at です. 



半 後 は， X 軸 上での 半径で， ドットの 個数で 与 

えます. 円の 半径 を 与える のに， x« 上と 特に こ 

とわる の は 変た' と 思われる かも 知れません 力 ( ， こ 

れは， ドット が X 袖 方向と Ytt 方向で ちがう 
からで， X 軸の ドット &と， ^じ^さになる Y 軸 方 
向の ドット 数の 割合 は 0.U95 に し なければ ならな 
いのです. 

パレット コード は， 描くべき 円 または 円弧の 色 

を 指定し ます. 

比率 は X« 上の ドッ ト数 に対する Y« 上の ドソ 
ト 数の 比率で， 0〜1 の 範囲で 指定で きます. 指 
定 がない とき は， 0.4495 を 取って 円 を 描きます. 

開始 位置 は， 円の 中心 位 B から X« 正方 向 を 0 

と し， 時計回り に 1 周して 再び もとに 滞った 位 a 
を 1 とする ように 与えられます. すなわち， o〜 
1 の 間の 数が 指定で きる のです. 

終了 位 B は 描き 終わる 位置 を 示し， やはり 0〜 
1 の 範囲で 指定し ます. 

開始と 終了の 位 B が 等しければ， 完全な 円が 描 
かれます が. その他の 場合 は 円 孤と なります. 開 
始， 終了 位 S は W 略す る ことができ， そのと き は 

0 を 指定され た ものと して x« の 正方 向の 点から 

描き 始め， 同じ 点で 描き 終わります. 

F の 指定に よって， 円の 内部 を^り つぶします. 
N の 指定 は， ^りつぶ しません. 省略した とき は 
N と 見なされます. 

機能に は PSET, PRESET, AND, OR, XOR 

を 指定で きます. 省略した とき は PSET 力'' 指定 




された ものと なされます. 

CIRCLE[@](300, 100), 50. 5, … N 

'1' 心 ゆ標 ~ ' 

半 逢 

バレット コ一ド 

練に よる 円 

この 例 は， 

CIRCLE % (300, 100), 50, 5 

と 入れても 桔果は 同じです. ただし， 上例で 円の 

中 を 塗りつ ぶす 場合 は， 途中に 並んで いるいく つ 
かの コンマ は ffa» できません. 




CIRCLE @ (300, 100), 50, 5, 1, •， F 

比 牢 

塗 り つぶ した 円 

この場合 は， 縱 長の 円， つまり だ 円になります 

CIRO_E:5>(300， 100) • 50， 5， 1， "F 
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では， ここで ちょっと 複 Jt な プログラムの 例 を 
調べて みまし よ う. 

ここで STR$(R1 ) という 使い方 は， R1 と 
いう 数値 変数 を 文字 変数に 変えよ， という 命令で 
す. 

たとえば， 
S $ = "RATIO? + STR $ (R 1 ) 
では， S$ は 文字 変数です. かりに Rl=10 とし 



1 1 0 
120 
130 
140 
150 
160 
170 
180 
190 
200 
2 1 0 
220 



10 WIDTH 80,20 
20 CONSO し E 0,20,0,0 
30 R=0.4495:C=4:X=60 
40 FOR 1=1 TO 4 
50 R1=R+0.13*(I-1) 
60 Y=100-100*R1 
70 S*="RATI0="+STR*(R1) 
80 C1=C-I+1 

90 CIRCL_E5><300， 100) ? 100，C1，R1 
100 SYMBO し （XjY)^,""" 
IF 1=1 THEN 180 
R2=R-0.13*(I-1) 
Y=100 - 100*R2 
S*=»RATI0= H -*-STR*<R2) 

C2=C+I-1 

CIRCL_E5)(300, 1 00 ) , 100,C2,R2 
SYMBO し （X， Y〉 ，S$, 1, 1,C2 
NEXT I 

CIRC し E5H300, 100) ， 100,4, 1 
SYMBO し （60，0〉 ， "RATI0=1 M , 1,1,4 
IJIRC し E5) (300， 100) , 100, 4, O 



て S$ を PRINT すると， 

RATIO =10 
として 表示して く る はずです. 
行 番号 30 は X 軸， Y« の 比率 R を 0.4495 とし， 

パレット コード を 4( 緣）， RATIO= 〜を 表示す る 

位 a のうちの， x 铀^ 標 （行 番号 loo) を 定めて い 

ます. 

40〜180 が FOR NEXT 文. 円 を 描 〈文 は， 90 
と 160 です. この 円の 比率 は R1 と R2 です 力、'， 
行 番号 50, 120 によって， 比率 を 0.13 の I 倍ず 
つ 19 加 させたり， 滅少 させたり しています. 问時 
に 行 番号 70. 170 で 比牢を 示して います. なお， 
この あと 行 * り- 190, 210 で 比率が 1 の 場合と， 
0 の 場合 を 描いて います. 




(： 



O. 25" 



m 也 £ 



し （60， 105) , "RAT 10=0" , 1 , 1,4 



R 議 =1 

RAT 10= • 

RAT 10= • 

RAT 10= ■ 

RAT 10= - 

RAT 10= • 

RAT 10= . 

RATIO- • 
RAT 10=8 



8395 
7895 
5795 
4495 
3195 
1895 
6595 




lO CLS 

-•'-» ' ； I (*<CLE5> ( 300 , 100) , 50 



- 1, .9,F 



^了ィ a 
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GCURSOR , 




m GCURSOR 

カーソル を ライト ベンと 同じように 使い， いろ 
いろな 指示 を 与える 命令です. このような カー ソ 

ルの 使い方 を グラフィック 力一 ソルと いい， 画面 上 

に は + 印で 表示され ます. グラフィック カーソルの 
移動 は. キーボード 上の カーソル 移動 キー を 使い, 

座棵值 の メモリへの 统み 込み は， I RETURN I キ 

一力 召使われます. 

GCURSOR " y), (変数 名，， 変数 名 2) 1 

| (変数 名 3, 変數名 4) …… ] 
[, バレット コード] 

(x. y ) は， JS 初に グラフィック カーソル を 
表示す る 座標です. 一度圃 面に 出たら. カーソル 
移動 キー を 操作して 移動させる ことができます. 

(変数 名， 変数 名） は， グラフィック カーソル 
の 位置の^ 標 を^み 込む 变&铽 域です 
I RETURN I キー を 押す と 統 み 込まれます- 変& 
名の 数で ドット 座標の 個数 を 指定し ますが， 全部 
淤み 終わる と + 印 は 消えます. なお， ゆみ 取る 座 
ほの 個数 は 10 憫が 限度です. 

パレ ソ ト コード は グラフ ィ フク 力一 ソルの 色 を 
指定し ます. 

m PAINT 

この 命令 を 実行し ますと， 指定され た 境界 色で 
囲まれた 範囲 を， 指定した パレット コードで * り 
つぶします. 

PAINT (水平 位置 ， 垂直 位置） 1 

し [パレット コード] 

[，境界 色， [，境界 色 2] …… ]] 

(水平 位置， 垂直 位! I) で 塗り 始める ドッ トの 

座標 を 指定し ます. その 位置 を 指定す ると. その 

位置が 指定した 境界 色に 囲まれた 範囲 内に あれば， 

その 範囲 を 指定した パ レツ ト コー ドで 塗りつぶし 

ます. 範囲 外に あれば， 外側 を 塗りつぶします. 
バレット コード を 省略した 場合， 直前に 実行した 
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COLOR 文の パレット コードで 塗られます. 境界 
色 を 指定す る ことによって， 囲む 境界の *5 囲 を 指 
定 します. 境界 色と して は 《 数個 を 指定で きます. 
パ レツ ト コード 肖 身 も 境界 色の 鋤き をし ます か 

ら， 境界 色が 指定され ていない とき は， パレット 
コー ド によって 境界が 指定され ます. 

ffi 応用 例 

簡^な プログラム を 使って この 利用 方法 を!! 81 ベ 

てみ ましよ う. 
10 CIS 

20 CIRCLE (300, 100) ,50,2 
30 CIRQUE (300， 100〉 ；《 70， 3 
40 CIRCLE <300, 100〉 ，90,4 
50 PAINT (231, 100) ,7,2,3 

行 番号 20 〜 40 で 三つの 円から なる 同心円 を 作 
り， 行 S ゆ 50 で 円と 円との 間に 色 を 塗ります. 




50 PAlNT(231.70o),7 J 2.3 



PAINT は， プロ グラムの 中で 色 を 塗つ てし ま 
いました 力、'， この プログラム は， グラフィック 力 
—ソル を 動かして 指定の 位置に 色 を 塗る 方法です. 
もちろん INPUT 文 を 使えば， あなたの 好みの 色 
を 塗る こと も 可能です. 指定 は 2 回で きます. そ 
の 都度 力一 ソ ルの色 も 変わ つてい る 点に お を つけ 
ださい， 




10 C し S 

20 CIRCLE (300, 1 "0) ,50,2 

30 C I RC し E ( 300 , 100) , 70,3 

40 CIRCLE (300, 100) ,90,4 

50 GCURS0R (300, 180) , (X17., Y17.) 

60 GCURS0R (300, 180) , (X27., Y27.) 

70 PAINT (XI"/., Y17.) ,6,2,3,4 

80 PAINT <X2'/. !I Y27.) ,5.2,3,4,6 



カーン/ ム， まど' に/二す わ ^ \ 
マリつ 7 ひ n. \X 



7 
1 



O 



， 



w 




マ- ソふ种 ま ひ wvJ 



10 C し S 
20 X=320 
30 Y=100 

40 GCURS0R(320, 100) , <X, Y) ,2 
50 A*=INKEY*: IF A*=" " THEN 50 
60 IF A*=CHR*<27) THEN 120 _ 
70 IF A*=CHR* (13) THEN 140 

80 IF A*=CHR* (28) THEN IF X< 639 THEN X=X+1 
90 IF A*=CHR*(29) THEN IF X >0 THEN X=X-1 
100 IF A*=CHR*(30) THEN IF Y >0 THEN Y=Y-1 
110 IF A4=CHR*(31) THEN IF Y く 199 THEN Y=Y+1 
120 PSET<X, Y,2) 
130 GOTO 50 
140 END 



なの フ <>□ ク 'ラム 13： CR T 上 に 力- ンル坊 
力キ 便 ^自由 |： 親 を祸き 出す プ D 

ク" ラ厶 ナょ んじゃ 一. まだ' 拔 胡して^ い 

ステー卜ダン^か'ぁさか'.'《めぅ5出2 

ぐ W ォー. 




F?U(V さ 甘 3 と 中央に +tP か-出る 

^こで m さ难き 出し^い 丫 玄置に カ- 
ン ルネ^? キー m$ パ # 動 Lgura 

キ-き ネ甲 ま. そこて" か、 カレ 矜紡 キ- t ネ甲 
魏で揭 き^めさ. 弑し？ 二 'ふん. 




&CVRSOR で. 十 を 

す さとぎ そ の^"〕 に 1〜^ め 

敎？ の キーち ネ 甲す と.：^ した 

教の ドットす "フ. ま 7b 0 を？？ す 

ヒ, 】o ドット 本 "フ. mvc^xz 

移動し 7 いきます. 




ここに 示す GET (な， 次の PUT @ および GET 
文， PUT 文の 用 は， 後述す るよう な K 列変& 
力 《使われて いたりして， 一^の 予備知識がない と 
理解に 困難な 点が あります. 便宜上 ここで 説明し 
ますが， 場合により あとまわし にして， ひととお 
り 他の 部分 を 読み終え てから GET @, PUT に 
取り かかっても一 ゆに かまいません. 

この 命令 は， 画面 上の ある 範囲 内に 表示され て 
いる キャラクタ， あるいは ドット を 配列 変数に 统 
み 込む ための 命令です. PUT お と 併用す る こと 

により 画面 を 動かしたり. 前に 求めた グラフ を 再 
び 出したり する ことができ， マイコン ゲームな ど 

によく 使用す る 命令です. 



この 命令文に は^み 込む 形式が 四つ あ'） ます. 



\ パレット コード 

Ift む • 変数 \ 


« まない 


« む 


キャラクタ 


形 式 1 


形式 2 


ト' 'ン 卜 


形式 3 


形式 4 



m GET® 形式 1 

画面 上に 表示して いる キャラクタ を パレ ッ ト コ 

一 ド なしで 配列に 代人し ます. 



GET (Xi , Yi) - (X2 , Y2 ， 配列 名 



両面 上の^: &: の 領域の キヤ ラ クタ を 配列に^ み 
込みます. （X し YO, (Xi Y 2 ) は キャラクタ 単位 
の 座標で^ み 込む 輒囲を 示します. 配列の 必要な 
大きさ は， 

配列の 大きさ = (^み 込む 範囲の キャラクタ 数 + 

a-1) /a 

a は 配列 変数一 つの パイ ト数 （A%(0) の 場合 は 
2 バイト） です. 统み 込む 顺序は （X し Y りから 
(X 2 , の 方 肉に 進み， 次に はし Y い L) とな 
つて， 再び ①の 方向に 進みます. 



GET@ を 使って 座標 5^ = 15, Yi = 10. X 2 =22. 
Yi = 10 と 指定し ます. そこに は 画面 上に FUJIT 
SUu と 表示して います. また， A% で 整数 型 を 
指定して いるので， 2 バイトの エリア を 持って い 
ます. 



そこで A%(0) に FU の キャラクタ コード， A(l) 

に J I の コード A%(3) に Uu の キャラ ク 

タ コード 力 《 代人され ます （t_j は スペース を 示す）. 



R 列 名 


^み 込まれる 
キャラクタ 


キャラクタ 
コード 


16 進数 


10 進数 


A 細 


F, U 


46， 55 


4655 


18005 


A%(1) 


J, I 


4A, 49 


4A49 


19017 


A%(2) 


T, S 


54, 53 


5453 


21587 


A 細 


U, 


55, 20 


5520 


21792 


A%(4) 


なし 


なし 


0 


0 


A%(5) 


なし 


なし 


0 


0 



1/W 




ひけ 1， Yi 




，も 



ひり Y けリ 

i 
② 



チ 



〔スリム) 

の 方お」 丫, 乙な 
d);>rfe 、二 さォ "さ. 



では プログラム を 見て みまし よ う. 

10 CIS 

20 DIMA'/.dO) 

30 LOCATE 15, 10 

40 PR I NT "FUJITSU •' 

50 GET:i)<15, 10) -(23, 10) , A7- 

60 FOR 1=0 TO 5 

70 PRINT HEX*(A-/.(I) 〉 

80 NEXT I 



CRT* 示 例 



FUJITSU 



5 9 3 c- 

6 A 4 5 

4 4 5 5 o o 
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また GET @ (Xi, Yi)-(X 2 -Y 2 ) で 四角形で 



10 C し S 
20 DIMA7.(10> 
30 LOCATE 15, 10 
40 PRINT"A # -VT* 
50 PRINT TAB (15〉 M ^t°a--9 
60 GETSdS, 10) -(22, 11 ) , A*/. 
70 FOR 1=0 TO 8 
SO PRINT HEX*(A-/.(I) ) 
90 NEXT I 



CRT 表示 例 



,、• ーソ ナル 

コン t tt 3 ーヲ 



CADF 
BOBF 
C5D9 
2020 
BADD 
CBDF 
ADBO 
C020 
0 

GET® (15, 10) — （22. 11) と 指定して みました. 

銑み 込む 範囲が (15, 10) …… （22, 11) まで 
W に A% に 代入され ます. 



K 列 名 ！ 


み 込まれる 
キャラクタ 


「16 道 数 | 


A%(0) 




CADF 


A%(1) 


一 ， ソ 


B0BF 


k%(2) 


ナ， ル 


C5D9 


A%(3) 




2 0 2 0 


A%(4) 


3 , ン 


BADD 


A%(5) 


ヒ， ° 


CBDF 


A%(6) 


ュ , ― 


ADB0 


A%(7) 


タ〜 


C02 0 


A%(8) 


なし 


0 



m GET (a A 形式 2 

画面 上の 任意の 領域の キャラクタ をパ レツ ト コ 
—ド と共に 住み込みます. 



GET® A (Xi, Yi) — （X2, Y2)， 

配列 名 



〇£丁〔"の形式1と， キャラクタ を ^ み 込む 範 

囲の 指定な ど は 同じです. 
K 列の 大きさ は， 形式 1 の 2 倍 必要と なります. 
^の キャラクタ は 2 バイ トの エリア を 必要と し 
ます， 



- 1 パイ 



― R 0 ： ノーマル 



R 'ル ゾト3 "ド 



コード 



1 ： リバース 



この 命令 は 表示 文 宇の 色まで 見る ときに 使い ま 



す. 



♦ GET (。 形式 3 

画面 上に 表示して いる 任 の領 城の 指定 色の ド 

ッ ト パターン を K 列に 统み 込みます. 



GET 



(X" Yi) — (X2， Y2)， 

E 列 名 

, G[, パ レツ ト コード [ 
パレット コー ド] -… ] 



(X し Yi), (X 2 , Y 2 ) は ドット 华 位の 座標です. 

パレット コード は * 大 8 個まで 指定で き， 指定 
した カラーと， 表示して いる ドットの カラーが— 
致して いれば， その ビット を 1 にします. 

パレット コー ドの 指定がない 埸合， 统み 込んだ 

データが 背景 色 以外で 表示され ていれば' その ビ 
ッ トを 1 にします. 
それで は プログラム を 実行して みます. 

10 C し S 

20 DIM A"/. (100) 

30 し INESHH^O) - （319， 110〉 

40 LINEWOJCO — WC^IOSO 

,PSET,7 
50 し INE<300，90>— (300， 109〉 

,PSET,2 
60 GET3(280 !1 90)-(319 ! ,92) 

, A7.,G,7,2 
70 LOCATE 0,0 
80 FOR 1=0 TO 105 
90 PRINT HEX$(A-/,(I〉 ） 
100 NEXT I 
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プログラム 結果 は, 




V \ i 



ノ、 



となります. 

画面 上に 緑色の 四角形 を 表示し， その 中に 白と 
赤で 縦の 線が 引かれて 表示し ます. 

GET @ (280, 90) — （319, 92) で X 方向 40 ドッ 



Y 方向 3 



ッ 



トの領 « を 指定し 



ザ 

レ , 



A% の ヒ 



列に^ み 込みます. GET 文で 指定した 領域 は， 右 
図の ドッ トで 表示して います. 

配列 名 は. 八％で《 ？数や を 指定して いますので， 
1 配列で 2 バイト 分の エリアが あり. ビットで 表 
現す ると 16 ビッ ト 分あります. 

この プログラム では， パレット コード を ァ （白 
色)， 2 (赤色） と 指定して いたので， 白と 赤で 表 
示して いる 部分 か 1 となります. 

八％(0)は乂=280,丫=90ょ リ X =295, Y =90 
までの ドッ トを 代入し ます. 

A% (0)=oooooooooo*ooooo のドッ ト 

k% (0) =0000000000100000 の 2 進数 
A% (0)= 0 0 2 0 の 16 進数 

となり， A%(1) は X=296， Y=90 より X=311. 

Y =90 までの デー タ を 代人 します. 

圈 GET(«A 形式 4 

圃面 上の 任意の 領域の グラフィック ドット を， 
その バレ ッ ト コー ド と共に 6d 列に^ み 込みます. 



GET (。 A (Xi , YO-(X2, Y2), 

K 列 名， G 



GET <§ 形式 3 は， グラフィック ドット を 説み 
込む 命令です が， GET お A 形式 4 は， カラーの 
情報まで^ み 込む 命令です. 

(Xi. Y り， （X 2 ， Y 2 ) は ドット 単位の 座標で， 
指定 方法 は 形式 3 と 同じです. 



a 



St み 込む ための K 列の 大きさ は， 

K 列の 大きさ- (((総 ドッ 

a-1 )/ 
a は 配列 変数 一つの 使用 バイ ト数 
次の 形式で 配列に デ一 タ が 格納 され ま す. 

[- 1 パイ ト 



ィ 
界 



'が 



4? 



総 ドット 数 



各 座標の ドットが カラーの 赤， 緑， 靑の ビット 
の 組み合わせ によ'） できて いるので， その 各ビッ 
ト を靑， 赤， 綠の W に fid 列へ 代人し ます. 



械 


严》 


、さん 3 に"//" 
布 f 綠 


黑 [ 0 


0 


0 


* 」 


1 


0 


0 


'き， 


0 


1 


0 




1 


1 


0 




0 


0 I 


, 1 


水 g 


1 


0 


1 


苷 


0 


1 


1 


6 


1 


1 


1 



1 ドット を 1 ビットと して 靑， 赤， 緑の 配列に 
代入し ます. 
それで は プログラム 例 を 実行して みまし よ う. 
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10 


C し s 






20 


DIM A"/. < 100) 






30 


し 11%1£5)(280，90) — 


(319；, 


1 10) 

一 一 ^ m ' 




y PSET，4,BF 






40 


し IME:5)(290，90) - 


(290, 


109) 










50 


し 11\|£5><300，90) - 


( 300 ， 


109) 




；, PSET 5 2 






60 


3£1^<280,90)- 


(319, 


91) 

響 • 




， A7"G 






70 


し 0CATE 0 , 0 






80 


FOR 1=0 TO 14 






90 


PRINT HEX$(A'/.(I) ) 





100 NEXT I 

この プログラム は， GET(aA ^式 4 を 用いて， 
画面 上の 表示して いる ドット を统み 取り. その 数 
ffi を 表示す る プログラムです. 

GET @ A (280. 90) — （319, 91) で X 方向 40 ト' 
ット， Y 方向 2 ドット の 全体で 80 ド ッ ト の 領域 を 
指定して います. 

X=280 a ^»* きで 《• ^ mit 

Y =90 « で夔ホ 

300C0OO000»O0O000O0O«O0OO0O00O000000C 



A% (0> a% m 

oooooooooo 參 ooooooooo*ooooooooooooooooooo 



AH (2) 



A% (3) 



ah (" X=319 
Y=91 



[^のよ う な ドット の 領域 を 指定した こ ヒ になり 

ます. 々, W の ドット だけ^ U しましょう. ft 初の 
16 ドット を 見る と， 緑と 白で 表示して います. 緑 

は綠の ドット だけで 表示し ます 力、 白 は靑， 赤， 
緑の ドットで 表示し ます. ですから 育の ドットが 
関係す るの は， 白の 表示して いる 邢分 だけな ので， 

K 初の 16 ドット は， A%(0)= "00000000001000 
00" 16 進数で 0020 となります. その 次の 16 ドット 

は， 緑と 赤で 表示して いますので， 育の ドット は 

なく， A%(1) = 0 となります. 

16 ドットず つ， 次々 に 代入して， 80 ドット 分 代 
入し 終わり， A%(4) = 0 となります. 次 は 赤の 
ドット を 注目して ください. ドットの 座標が X = 
280, Y=90 より， 16 ドットが A%(5)= "000000 
0000100000" 16 進数で 0020 となり， その 次の 16 ド 
ットは A%(6)= '0000100000000000* 16 進数で 
0800 となります. A%(9)=0 の 次 は 緑の ドット 
を 注目して ください. 

ドット 座標が X=280, Y=90 より， 16 ドットが 
表示 色が 緑と 白な ので A%(10)= "111111111111 



40 ド ッ ト 

青の ドット データ 




•v 卜 

赤の ドット データ 



1111" 16 進数で FFFF となります. 次の 16 ドッ ト 
は綠と 赤な ので A%(11)= '1111011111111111* 
16 進数で F7FF となります. 同様にして 次々 にデ 
一 タを统 み 取り， A%(14) は FFFF となって 画 
面 上の GET @ A で 指定 し た 領域の ドット を 全て 

K 列に 代入し ます. 

k%( 0 ) =0000000000100000 
A%( 1 ) =0000000000000000 

A%( 3 ) =0010000000000000 

A%(4) 
A%(5) 
A%(6)=l 

A%( 7 ) =0000000000000000 
k%{ 8 ) =0010000000001000 
A%( 9 ) =0000000000000000 
A%(10) = 
A%(11) = 
A%(12) = 
A%(13)=: 
A%(") 

以上の ように 配列に， 表示 データ を tt み 込んで 
きます. 



20 

0 

0 

2000 

O 

20 

800 

0 

2008 
0 

FFFF 
F7FF 
FFFF 




40 ト' ッ 
緣 のに 



卜 データ 




FFFF 

プログラム RUN の 結果です. ビット パターン 
と 同じ 数 f 直にな つてい るか 検討して みて ください. 
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この 命令 は， 画面 上の ある 範囲 内に K 列 内の 数 
値 を データと して 表示す る 命令で， GET @ と 全 
反対の 動作 をし ます. 
こ の 命令文に も 四つの 形式が あ り ま す. 



\メ 、'レフ ト コード 

表示 \ 
する， i\ 


1 め 
リ * 

や ^ 


カラー を 《 
定 できない 


キャラクタ 


形式 1 


形式 2 


ド ット 形式 3 


形式 4 



« PUT @ 形式 1 

GET@ 文 （形式 1) で统み 込まれた 
タ を 画面の 任意の 位 S に 表示 します. 



PUT 



(Xi, Yi) — （X2, Y2), 
配列 色， [パレット コード] 



GET @ 文で 配列に 统み 込まれた キャラクタ を 
画面 上に 表示し ます. 

配列に データ を 代人して 表示す る埸含 は. GE- 
T@ 形式 1 の 害 式に したがって， K 列に データ を 
害き 込んで く ださい. 

パレット コード は， 表示す る キャラクタの 色 を 
指定し ます. この 指定がない 場合 は， 直前の パレ 
ッ ト コー ドで 表示し ます. 

プログラム 例 

10 C し S 

20 DIMA*/.( 10) 

30 し 0CATE 15, 10 

40 PRINT "FUJITSU" 

50 GETS) (15, 10〉 一 （22, 10〉 ，A7- 

60 PUTS>(0,0>-<22, 10> , A7. 

70 PUT:D(10, 11) - （lO, 18) , A'/-,2 
80 LOCATE 1 ， 1 

この プログラム では， 行 番号 40 の 文字 を GET 
@ 文で 1ft み 取り， PUT @ 文で 表示させます. 行 
番号 60 では， 文字 を 横に 並べて， また 行 番号 70 で 
は縱に 並べて 表示し ます. 



FUJITSU 




FUJITSU 



F 
U 
J 



s 
u 



圈 PUT (oA 形式 2 

GET @ A 文 （形式 2) で铣み 込まれた キャラ 

クタ を， MiSi 上の 意の 位置に 表示し ま 



PUT @i 


\ (Xi, Yi)-(X2, Y2)， 




配列 名 



GET @ A で K 列 に^み 込まれた キャラクタ を 
画面 上に 表示し ます. 
K 列に データ を 代人して 表示す る 場合 は， GE 

T Ca A 形式 2 の會 式に し た がつ て K 列に データ を 
害き 込んで く ださい. 

PUT© A で カラ一 指定 はでき ません. カラ一 
を 変更す る 場合 は， 配列 中の データ を 変更して 
ださい. 



m PUT (a 形式 3 

GETS (形式 3) で 読み込んだ グラフ イツ 
ドッ トを 画面に 表示す る 命令 



ク 



PUT @ (X し Yi)-(X2, Y 2 )， K 列 名， 
機能， [， パ レツ ト コード] 



GET @ 文で 読み込んだ 配列の 中には， ドット 

の カラ一 情報 はなく， 表示す るかし ないかの fff 報 

を 持って いる だけです. したがって， 表示す るド 

ットの 色 を， パレット コードで 指定す るので す. 

省略され ていれば， 直前に 実行され た COLOR 文 
の パレット コードで 表示し ます. 
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機能と して は PSET, PRESET, AND, OR. 
XOR, NOT のどれ か を 指定で きます. 
例と して， 次の ような 場合 を 考えて みましょう. 



1 パ レツ トコ- ド 1 


色 


ビッ ト 


榷定 


2 | 


赤 


1 010 | 


画面 


6 


黄 


110 



それぞれの 機能に よって， 画面に 表示され る 色 
は 右の ようになります. 
プログラム 例 

10 CIS 

20 DIM A"/- ( 50 ) 

30 LINE3(280，90>—<319， 110) , PSET, 4, BF 
40 LINE (290, 90) -(290, 109) , PSET, 7 

<300，90H300， 109) , PSET, 2 
(280， 90 ト （319， 95> , A7. !I G,7,2 
( 10, 10)-(49, 15) , A7.,PSET ? 5 
(100， 100) -(138, 105) , A7.,PSET,6 
(104, 106〉 一 （144， 111) , A'/., PSET, 6 



機 m 


ビ ッ ト 
パターン 


パ レツ ト 

コード 


色 


PSET 


0 1 0 


2 


赤 


PRESET 


1 1 0 


6 


黄 


AND 


0 1 0 


2 


赤 


OR 


1 1 0 


6 


黄 


XOR 


1 0 0 


4 




NOT 


1 0 1 


5 


水 色 



50 し INE 

60 GETS 

フ 0 PLI 丁 :5) 

80 PUT5) 

90 PUT5) 



100 LOCATE 1, 1 

GETCa で I 由 iffi 十. から^と 赤の ドッ ト のみ 配列 
に统み 込む ので， データ は II が A% の 中に あり， 
行 番号 70 は その データ を の （10, 10) 座標から 表 
示させて います. 

行番サ 80, 90 では， 横の 表示 ドット 数 を 変化 さ 
せて 表示して います. 

画面に 表示して いるお 1 形 をよ く ^て 検お してく 
ださい. 



♦ PUT(。A 形式 4 

GET (^文 （形式 4) で^み 込まれた グラフ ィ 
ッ ク ドッ トを任 * の 画面に 表示す る 命令です. 



PUT@A (Xi, Yi)-(X 2 , Y2), 

配列 名， 機能 






K 列 は パレット コード も 持って いるた め， その 
まま 表示 すれば よいので す 力、 機能に よって 色 を 
変える ことができます. 

« 能と して は AND, OR, XOR, NOT, PSET 

のい ずれ か を 指定で きます. 

PSET の 指定 をした とき は， 配列 データ を その 
まま 画面に 表示し ます. 

NOT を 指定した とき は， K 列の 靑， 赤， 緑の 全 
ビット を 反転 させた 結 *, すなわち 配列に 统み込 
まれて いる 色の 補色で 表示され ます. 

AND, OR, XOR を 指定した とき は， 現在 画面 
に 表示され ている ドットの 靑， 赤， 緑の ドット パ 

ターンと， K 列で 示された ドット パターンが 画面 
に 表示され ます. 



^mo 黄^ 
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O CO S S 

w N お s 



§ s I 5 8 ピサ 



GET と PUT について 長々 と 解説して きました 

が， 何 は ともあれ 実際に 体験して みる こと 力、 理 
解への 早道で しょ う. 

とにかく， 実際に プログラム を 作って 実行して 
みまし よ う. 



Y 

m 
挖 



io c し s 

20 DIM F"/.(50) ,M"/.(50) ,H7.(50) ,E"/.(50) 
30 SYMBOL (200， 100) ， "ま"， 3， 2， 7 

(230, 100) ， "*",3 5 2,5 
(260, 60> ，"マ"， 3，2， 1 
(290, 140) ， "-r' ,3,2,2 
(320, 60) ， ,, 3 M ,3,2 ? 3 
<350， 140) , "ン"，3，2,4 
(380， 100) ， "》",3，2,5 
SYMBOL (410， 100) ，"まつ 3，2, 6 
GET0 (260, 60) -<290, 80) , FV.,G, 1 




8 ビット 



40 SYMBOL 
50 SYMBOL 
60 SYMBO し 
70 SYMBO し 
80 SYMBO し 
90 SYMBO し 
1 00 
110 



(4) 

文字の 大き さ 

» 方向 《 率 ：3 
幅 方向 tt 率 ： 2 
If ft& ： 



図 8.12-1 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



GET0 (290, 140) - <320， 160) , M7.,G,2 
GET® (320， 60〉 一 （350， 80) ,Hy.,G,3 
GETS (350, 140)- (380, 160) , E'/., G, 4 
FOR Y=60 TO 96 STEP 4 
PUT5) (260， Y) - （290， Y+20) ,FX， XOR, 1 
PUT5> ( 260 , Y+4 ) - ( 290 , Y+24 ) , FV. , XOR , 1 
PUTS) ( 290 ， 200 - Y 〉 - < 320 , 220-Y ) ， M7. ， XOR ， 
PUT5) (290， 196-Y>-(320,216-Y) ， M'/" X0R,2 
PUT3 (320, Y)-<350, Y+20) , H7. , XOR, 3 

PUTS) (320, Y+4 ) - ( 350 , Y+24 ) , H7. , XOR , 3 
PUTS) (350„ 200-Y) - (380, 220-Y) , E7-, XOR, 4 
PUT5) (350, 196-Y)-<380,216-Y> , E7. , X0R,4 
NEXT 



つ 
ム 



20 は 配列 変数 を 定義して います. それぞれの 
変数に は， 50 〜 80 の ステートメントで 画面に ド 
ット パターンで 表示した W マ、 "zx\">" 
の 4 文字の ド ッ ト 情報が 统み込 まれます. 



30 では @の 点の ドット 座標で， マ を 横倍牢 
3， 縱 倍率 2, パレット コード 7( 白） で 表示し ま 
す. 40 〜100 も 同様の ステートメントです. 

110 は， "マ， の ドット パターン を 形式 3 の GE- 
T@ ステートメントで 整数 型 配列 変数 F% に 読み 
込みます. * マ， は 50 で わかる ように， ハ* レツ トコ 
ード 1 (青） で 表示して いるので， そのままの パ 
レツ ト コードで 统ん でい るので す. 



120 〜 140 も 同様の ステ一 トメ ント です. 

160〜240 は どの ステートメント も 同型 式で， 形 
式 3 の PUT@ を 使って います. そして， 2 行ず 
つ F%， M%, H%, E% の 配列 変数 を PUT @ 
しています. 《 能 は 全て X0R となって いますね. 

160 の PUT @ ステート ノン ト では 何 をして い 
るので しょう. こめ 直前に 画面に 表示され ている 
パレット コードと， この ステートメントで 指定し 
ている パレ ッ ト コー ド について X0R の 論理演算 

をして いますから， ビット パターン は aooo "とな 
り， 背景 色と 同じになります. すなわち， 画面 か 
ら i 肖え る わけです. 

そして， 170 の PUT@ ステートメントで Y 座 



80 



標を 4 ドッ ト ずらして 表示して います. 

180 と 190， 200 と 210, 220 と 230 の 組 も 全く 
同じ 論理の ステートメントです. そして， 全部の 
文字が一 直線に 並んで （Y=96) 終わりに なり ま 

す. 

ところで， 20 DIM 文の K 列 数の 決め 方 を まだ 
解説して いませんで したね. では， 前 ページ 図の 
，マ" に 注目して ください. そして， 3.10 の 形式 
3 の GET@ 文で 説明した' 配列の 大きさ" の 式 



をみ てくだ さい. w マ * の 箱の 中の 総 ドット 数 は, 
(290-260+ 1 )X(80-60+ 1 ) =651 になります. 
配列 変数 F% は 整数と して 定義して いますから， 
1 要素の 大きさ a は 2 バイトです. そのため， 
配列の 大きさ =((651 +7)/ 8 + 2 —1 )/ 2 

=41 (小数 部分 切り捨て) 
となります. K 列の 大きさ は， 少し 大き 目に 取つ 
て も かまわな いため， "5(T としたの です. 



7 □ 



ィ y 



フ コ 

4 y 



* * v ^< □ * 
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「 



に 



いろいろな ステー 卜 メン卜 



この 章で は， BASIC を 利用す る 上で， ぜひ 知 

つてお かなく て はならない いろいろな ステート メ 
ン ト を 中心に 説明 を 進めて いきたいと 思います. 

コンピュータ は， 判断に よって イエス か ノーの 
結果 を 出す 仕事が 少なくありません. 関係 式む そ 
うでした ね. ここで は， もう一 つの 判断 をす る 論 
理式 という ものから まず 説明 を 進め， 一般 ステ一 
トメ ントに 移って いく ことにします. 



4:1 




すでに. もう 何回 か 出て きました 力、 ビット 《 



は 



作 や ブール iW 算を实 行したり， いくつかの | 
を W ベたり するとき に， 論理 式が 用いられます. こ 
こで は. 論^演算 子と して 使われる NOT, AND, 
OR, XOR. IMP, EQV などが どんな もの か を 
具体的に 調べながら 説明 を 進めます. 

ブール 演算と いうの は， 19 世紀 英国の ジョージ 
'ブールと いう 数学者が 作り出した， 論理的な 関 
係 を 表現す るた めの 演算の 方法です. コンビ ユー 
タは， 全て 2 進数で 動いて います. そして， 論理 
式 を^ »: するとき は， 16 ビットで 動いて います 
( 10 進数に 直す と —32768 〜 32767 ま での 数） . 
そのため. それ以上の 数 を インプット すると， 
エラ一 になる こと を おぼえて おいてく ださい. ま 
た マイナスの 数 は， 補数 表示と いう 方法が とられ 
ています. たとえば， 10 進数の 一 1 は 1111111111 
111111. 一 2 は 1111111111111110， 一 3 は 111111 
1111111101 です. なお， 16 進数の 第 1 桁 目 は 1 な 
ら負， 0 なら 正の 符号 を 示して います. 

論理 式で は， 各 ビットごとに それぞれ i 寅算 をし， 
その 結采を 出して きます. それぞれ 各 桁 ごとに 滴 
» をし， 桁 上がりな どし ない 計： 8： のお 法です. な 




A がリ で' あ, 2 も， お^" 1 マ 'あ マ 
毛，^ 粟' ま 1 にな^ どい ラ I。 轧. 




A ど つ？' 'あ》 ±|/^ 小， 、どち ラ i 
1 ?" はな い 場 旁ん-' 7 ナ^^ダ 化^ 

も. ペン^^ t) う 



お， イン ブッ ト する (が^ 数で ない^ 合に は， 

小数点 以下 を 四捨五 人して， 《¥ 数に 直してから 《 
算を します. 

むずかしい^ は 抜きに して， ^際の 例で その 鋤 
きを 見て ください. 



m X AND Y (驗理 精） 

AND というの は X であ')， 
いう 意味です. 



かつ Y である， と 




X 


Y 


X AND Y 


1 


1 




1 


0 


0 


0 


1 


0 


0 


0 


0 



1 



環 といい ます 
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2 AND 3 を 調べて みまし よ う - 
2 進数に 直す と， 

2 は 0000000000000010 

2 AND 3 は 0000000000000010 

上 を 見る と. ft 桁で 两方共 
1 になって いると ころ は， 下 
から 2 桁 目 だけです から 0010 
つまり 結果 は 2 になります. 
PRINT 2 AND 3 1 RETURN I 

2 

いく つかの 例を调 ベて みま しょう. 
PRINT 3 AND 41 RETURN 1 
0 

10 進数の 3 は 2 進数で は 11 . 4 は 100 です か 
ら， AND の 桔果は 0 になって しまいます. 
PRINT 一 1 AND 4 

4 

一 1 は ト 
4 は （)• 



一 1 AND 4 は 0 — 0100 
PRINT 一 1 AND 一 2 
一 2 

一 1 は 1 •• 

- 2 は 1 •• 

一 1 AND 一 2 は 1 -1110 

88 X OR Y (驗理 和） 

X または Y という 意味です. 
ですから， X か Y のど ちらか 
力 f l であれば 結 * は 1 になる， 
という 恋 味です. 



X 


Y 


X 


OR Y 


1 


1 




1 




0 




1 


0 








0 


0 




0 



PRINT 1 OR 2 

3 
1 は 

2 は 0—0010 



1 OR 2 は 0 - 0011 



PRINT 

一 1 
一 1 は 

一 4 は 



一 1 OR — 4 



1- 
1 • -1100 



一 1 OR - 4 は 1 
4 OR 11 



PRINT 
15 
4 は 
11 は 



0--0100 
0-1011 



4 



m NOT X (否定） 

X ではない という * 味です. 
PRINT NOT 1 
一 2 

1 は 2 進&て "0001, その 

つ ヒ た ！: 1110 ですから, 2 になる わけです 
では 逆 はどうで し よ う. 
PRINT NOT - 2 

1 



X 


NOT X 


1 


0 


0 


1 




S X XOR Y (排他的 論理和) 

X か Y のい ずれ かが 1 のと 

き だけ， 結果が 1 になる のが 
XOR です. 



X 


Y 


X XOR Y 


1 


1 


0 




0 




0 






0 


o 1 


0 




PRINT 1 XOR 2 
3 

1 は 0'"0001 
2 は 0—0010 



PRINT 

一 7 
4 は 
一 3 は 



4 XOR -3 

0 …画 
1- 



1 XOR 2 は 0 " 0011 4 XOR — 3 は 1 -1001 



PRINT 

6 

一 5 は 
一 3 は 



-5 XOR 一 3 



1 
1 



1101 



一 5 XOR 一 3 は 0 -0110 

S X IMP Y (包含） 

X が 1， Y が 0 のとき に 限 
リ結 * が 0. あとの 場合 は 1 
になります. 



X 


Y 


X IMP Y 






1 


1 


0 


0 


0 


1 


1 


0 


0 


1 



PRINT 1 IMP 3 

-1 

1 は 0-0001 
一 3 は 一 0—0011 
1 IMP 3 はト -1111 

PRINT 3 IMP 1 

—3 

3 は 0 - 0011 
1 は 0—0001 




PRINT 3 IMP 

-1 

3 は 0 
一 1 は 1 
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圈 X EQV Y (間 值） 

X， Y が 同じ 値で あれば 1, 



同じ 敏 でなければ 0 にな 
す. 

PRINT 5 EQV 一 3 
7 

5 は 0"僵 
—一 3 は —レ '1101 
5 EQV -3 は 0 '0111 



ま 



V 
A 


I 


A 匕 T 


1 
1 


， 






0 
リ 


o 

V 


0 




a 


0 


0 


1 




♦ 優先順位 

16 理浪算 は， 他の 浪算子 を まぜて 使う こと も 可 
能です. その 場合. 例によって 演算子の 優先順位 
が 間 いになります. ここで は， すでに 述べて きた 
； WfTf を》 め. 《5feW 位 を 表に して 示します. 



«先《 位 


演算子 


！ 


へ 


2 


一 （マイナス 符号） 


3 




4 


¥ 


5 


MOD 


6 




7 


IW 係 演算子 


8 


NOT 


9 


AND 


10 


OR 


11 


XOR 


12 


EQV 


13 


IMP 



かっこで 囲まれた 式 は， この 優^ 

位に M 係な く 光に 実行され ます， 



1 IMP 3 はレ '1101 3 IMP 一 1 は ！… 



では， いくつかの 例で^ 際に^して みましょう • 
5EQV-3)* 4 = 28 

5 EQV- 3*4- 14 

6 + 2/3AND4 十 8*2= 4 
6 + 2/30R4 + 8*2= 23 
6 + 2/3XOR4 + 8*2= 19 
6 + 2/3IMP4 + 8*2=-4 

6 + 2/3EQV4 + 8*2=-20 
10R2AND3XOR4IMP5 EQV6=- 4 
N0T(1AND2X0R( 3IMP4))= 3 
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4.2 



DEF FN 




うお 工場で は 
x チ y のィ i 率 を 

專門白 勺 にゃさ 

の す-二 一 



つ 




ちょっと GOSUB に 似た ところの ある ステート 
メント です. これによ つて， 常時 使用す る 関数の 
式 を， あたかも サブルーチンの ようにして 使う こ 
とがで きます. GOSUB は 次 項で 説明し ます. 



DEF FN 名前 [(パラメ一 タリ スト ）]= 式 



FN は function (関数）. DEF は define (定義 
する） の 略です. つまり， 関数 を 定義して やる と 
いう 意味です. 

ご く 簡単な 例で^ ベて みま しょう. 

10 DEF FNA(X, Y)=X+Y 

20 1=2: J=3 

30 Z=FNA( I , J) 

40 PRINT Z 

50 T=10:U=5 

60 X- ト -NA(T，U> 

70 PRINT X 

RUN 

5 
15 

行 S ゆ 10 で FNA を しています. この 閣 数 
が 呼び出され るの は， 行 S リ -30 と， 60 です. ちょ 
つと 気になる の は， 行 番号 30 の 変数 は I, J. そ 
して 行 S 兮 10 では， そこが X, Y となって いる 点 
です. 実は X, Y (パラメータ リスト > のこと を 

仮 引 & といい， I, J と 変 《： の 型 （文字 変 ft か， 

数 w (変数 か） a さえ m じなら， いっこうに かまわ 
ない のです. 

W に 変数と は, 文字 や 数值を 入れて おく HI と 害 
きました. 行 番号 10 は， いわば 加 XX 場で あり， 
外部から « ばれて き た Sdrfi: は. 加： L_T_ 場で は エ^ 
'み 用の ffi の 中に 人れ かえられます. この エ^？? 用 
の 箱が 仮 引数と いう わけです. 

引数 を 使う と， メイン ル一 チンで いろいろな 変 
数が 使い分けられ ていても， R 引数に ■ きかえら 
れる ため， いっこうにかまわない という 利点が 生 
じます. なお， 仮 引数の 中に 人る データの 方 を 実 
引数と いいます. また 仮 引 & は. 同じ 名前の 変& 




が メイン ルーチンに 使われて いても， とにかく そ 

の 加 ェ エ^ A¥ffl のた め， 《 乱したり する こと は あ 
りません. 

DEF FN は. サブルーチンの 場合の ように， 
メ イン ルーチンの あとの 方に 出て く ると 使えず， 

メイ ン ルーチンに 人る ift に， この 定: S づけ をコン 

ビュー タに 理解 させて おかねば なり ません. また, 

お 筏モ一 ド では 使う ことができません. もちろん, 
文字 変数の * も 合に も 使 « できます. 

10 DEF FNA$ (X*, Y*) 

20 A$=")V* —ソ ナル" 

30 BI-HZJ^tea—^ 1 ' 

40 PRINT FNA* (A*, B*) 

RUN 

八 e — ソナル 3 ン t e :i— ヲ 
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もっとも コンピュータ らしい 命令の 一^ ？ です. 

GOSUB というの は サブルーチン （subroutine) 
に 進め Z という 意味です. サブ は 従， ルーチン 
は 一定の 手順， プログラムの ことです ね. メイン 
(主) ルーチンに 纣 する 言葉と 考えても よいで しょ 
う. プログラム を 作る とき， 同じ 命令です む 部分 
力 < 何回も 出て くると きに 使います. 

たとえば， メイン ルーチン を 行 *リ- 100 〜にと 
つてお き. サブルーチン を 行 番^ 20〜60 だとし 



行 番号 100 から #兮顺 に プログラムが 進む. 
行 番号 200 に GOSUB20 の 命令が ある. 
行 S 号 20 に ジャンプし， 再び 番サ顺 に プロ 
グラムが 進む. 

行 * 兮 60 で RETURN という ft 令 に 出 会 



(1) 
(2) 

(3) 
(4) 



(5) 再び ジャンプし, 



行 * ひの^ 令に 滞って 



(6) 

(7) 
(8) 



200 の 次の 



号 300 て '再び G0SUB 20 の 命令に 出 

つ . 

W 述 （3)， (4) が « り 返される. 

再 ひ 'ジャンプし， 初めの 行 の 次の 

行 番号に 滞って くる. 



✓O/A— ^ ン 

2QO GOSUB 2.0 
2.10 




この 例で わかる ように， 同じ 命令で よい 部分が 

何回も 出て くると き 便利な の 力、'， G0SUB〜RE- 
TURN です. もちろん， サブルーチン はいくつ あ 

つても かまいません. たとえば GOSUB70 で， 

RETURN 力 < 行 番号 90 にあっても かまわな いわけ 

です. また サブルーチン は， 行 番号の どの位 ii に 

あっても かまいません 力 <, 一般に は サブルーチン 



( いくつ も' 



たまり にして まとめ 



ておいた 方が， あとで ftiS すと き 便利です. では, 
簡単な 例 を 作って 調べて みまし よ う. 



10 GOTO 100 
20 FOR 1=1 TO 
30 PRINT Y; 
40 NEXT I 
50 PRINT 
60 RETURN 
1 00 X=5 
1 10 Y=l 
200 GOSUB 20 
210 X=7 
220 Y=3 
300 GOSUB 20 
310 PRINT'W." 
RUN 

11111 

3 3 3 3 3 
オフ リ 



X 




サ 7 ブムタン 





3O0 c^OSUB え。 

31 o ― <r 
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きな プログラムです. RUN により， 初 
めに 1 を 5 個， 较 いて 3 を 7 個 サブルーチン によ 

つて 表示して くる はずです. 同じ サブルーチンで 
も， 変数の 違いに よって 異なる 仕事 をして くれる 
ことが わかります. 別の プログラム を 追加して み 

ましょう. 

45 IF X<=5 THEN GOSUB 70 
70 PRINT'W ゥェ ォ'' 
SO RETURN 
RUN 

11111 アイ ゥェォ 

3 3 3 3 3 3 3 
オ^リ 

サブルーチンの 中に また サブルーチン があって 
も， ちゃんと 実行して くれます， 行 番号 45 の 中の 
GOSUB70 の 部分 を， GOTO70 としても 実行し 
ます. この場合 も， 80 RETURN は 必要です. 





m 円の 面 « を 計算す る プログラムです. 

10 C し INPUT'TiL /クイ A " ;R 

20 PRINTS PRINT" ェン ノ メン tT 午 A 11 ； 

30 PRINT" テ" ス'' = PRINT 

40 PRINT"1i*v 卜 ケィ サン シ マスカ ？ YES 

0 ラ ィ レテ ワラ" サイ n ； 

50 INPUT I 

60 IF 1=1 THEN GOTO 10 
70 IF 1=0 THEN GOTO 90 
80 GOTO 50 

90 PRINTS PRINT'f" sEND 
100 X=3， 14159*R'"、2 
1 10 PRINT X; 
120 RETURN 




^fMLj ン 



: GOSUB 100 



す ラ 1，N0 すラ 



鄉禽 。^お 



お 号 100 〜 120 が サブルーチンです. 行 S 兮 
20 から ジャンプ してく る 部分です. 

行 番号 20, 30, 90 にある， 独立した PRINT 命 
令 は， これによ つて 1 行 分 行 を 飛ばし， CRT 画 

tfii h で 説み やす く する ための も のです. 

なお， 90 の 終わりに END が 入って います 力、 
もし これがない と， プログラム 上 引き^き サ ブル 
一 チンのと ころまで 実行して しまいます. 




4.5 




に， プログラム 内に: おいて ある データ を^ 
み 込んで やる とき 使う のが， この ステートメント 
です. 



READ 変数 名 [，変数 名] 
DATA 定数 [，定数] …… 



変数 名 や， 定数 かいくつ も 並んで いると き は， 
コンマで 区切って 並べます. 定数 は 文字 定数で あ 

つても， 数値 定数で あっても かまいません 力、'， m 
み 込まれる 変数の^と一 致して いなく て はなら な 
いこと はいう まで もありません. 文字 定数で スぺ 
ースゃ ，（コンマ） を 含む 定数の 場合 は， ""で 
くくって やる 必要が あります が， その他の 場合 は 
必要 あ'） ません. 
では ^例 を 調べて みまし よ う. 

10 DEF FN A<X, Y)=X*Y 

20 READ Al, A2„ A3, A4 

30 Z=FN A(A1;, A2) : GOSUB 1 00 

40 Z=FN A(A2, A3) : GOSUB iOO 

50 Z=FN A<A3 ? A4) :G0SUB 100 

60 DATA 2， 3， 4, 5 

70 END 

100 IF Z< 10 THEN PR I NT "ABC" 

ELSE PRINT"XYZ" 
110 RETURN 
RUN ― 




は 1ST 行^に 介 l ナ 

■Z やつ" Zt《 、まわ 
な 



お AD Al^A^Af - 




PATA 2,3,4, ^ r 



4.4 




ON 式 GOSUB 行 番号 [，行 眷号] 



0N〜G0T0 と ほとんど 同じ 鋤き をし ます. 式 
に 1 が 入ったら， GOSUB の あとに 並ぶ 行 番号の 
^1 の サブルーチンへ， 2 なら 2 番目， 3 なら 3 
番目です. 例 を 調べて みまし よ う. 
10 INPUT X 

20 ON X GOSUB 100,200,300 
30 GOTO 10 

100 PRINT' 1 AA"; 
110 PRINT M BB M 
120 RETURN 
200 PR I NT " MM " ; 
210 PRINT"NN M 
220 RETURN 
300 PRINT^XX"; 
310 PRINT"YY" 
320 RETURN 

？ に対して 1 と 入れる と AABB, 2 を 人れ る： 
M M N N と 表示して きます. 式が 0 ま た は 行 番号の 
flM3& よ ') も 大きい とき は， 次の 行に 進みます. なお 
式の が 数で ない 場 介 は， 小 » 部分の 第 1 位の 
桁が 四^だ 人され て， K 数に 変換され ます. 



RUN 
？ 1 
AABB 



つ 



求ス、 tir な、、 ス 7— けンレ な. 



MMNN 

？ 3 
XXYY 
？ 4 
？ 1 
AABB 



扉 
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行 番号 60 が データて すね. ここに 並んで いる デ 
一 タの数 は 4 個です. これ 以 ±36 ん でいても いつ 
こうに かまいません 力、'， 3 個の ように 少ない と Out 
of Data という 表示が 出て エラ一 になります. 

たとえば， 行 番号 70 を GOTO 20 に 直して や 
ると， Out of Data になって しまいます. すで 
に 4 個の データ を统み 込んで しまった からです. 
そこで. データの 数 を ふやして やる と， データが 
なくなる まで は 動いて くれます. そして データが 
なくなる と， やはり Out of Data になります. 

これで はお もしろ くない. といった 場合に 使わ 
れ るの？^ RESTORE です. RESTORE はもと ど 
おりに 復元 するとい う 意味です. そこで 行 番号 70 
を， 

70 RESTORE ： GOTO 20 

として やれば， この プログラム は いつまでも 突 行 
されます. 

また， データの 餃 後に' ii 際に は 使われない 他， 

たとえば 一 999999 など を 人れ てお き， IF〜THEN 
文 を 使って， どの 変数で もよ いから. 一 999999 が 
代入され たら. RESTORE する ように してやる 
の も 5 の 手で し よ う . 

データの fi"? ^何 行に も わたる 場^, RESTORE 
の あとに 行 番号 を 指定す ると， 指定され た 行 S サ 
の データから を RESTORE して くれます. 

DEF FN A<X;, Y)=X*Y 
I=I+1:READ Al, A2 y A3, A4 
Z=FN A(A1, A2) :GOSUB 100 
Z=FN A<A2, A3) : GOSUB 100 
Z=FN A4) : GOSUB 100 

DATA 2,3,4,5 
RESTORE: IF I く 2 GOTO 20 
END 

IF Z>10 THEN PRINT"ABC" 
RETURN 



40 ^EAP …- 



10 c し s 

20 READ A,B,C 

30 T=A 本 B 聿 C 

40 PRINT "ライ tr1= A"; 

T; "リ ゥ cm" 
50 DATA5,6,7 
RUN 

ライ tf や A 210 リ げゥ cm 



10 C し S 

20 READ A*, B*,C»,C* 

30 PRINT A*;B*;C*sPRINT 

40 RESTORE 

50 READ A*,B*,C* 

60 FOR 1=1 TO 4: READ D*:NEXT 

70 PRINT A*+C$+D* 

80 DATA 卜ゥ中 3 ゥ卜 

90 DATA" スチ" ナミ 7"," t ヴカ" ャヮ" 

lOO DATA" ォチ ~ '• ， •• アサ カ、'ャ" 

110 DATA' 1 7) ミゥマ '•， " ' 》V シ" コゥ: ri/'， 

RUN 

卜ゥキ 3ゥ 卜 ス咿" フ ォゃ" フホ' 



トウ 午 ョ ゥト t ヲ rr ャヮ A"i/ W コゥェ ン 



^Ti%307"H ； も^で'/ ま 十き ゲ き,、 

，ります もき 更 は^に r ォ 



お釜き 20?7 よ 



も 化 



£ ダカ' V フぁ s あみ 



ぶ は' 'してし 言 





~ あ" Hi 串 





o o N c c c C 
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プログラム を 作って いて， 试行鍩 ^を ** り 返し 

ている とき， CRTW 面 上で 実行して いる 動作が， 
行 番号 何番で 実行 している かが わかれば， た t 、へ 
ん 便利な ときが あります. TRON, TROFF は そ 
のた めの 命令です. 试 しに 実行す る 前に， 

tronCreturE 

と 入れてから RUN してみ ましよ う. 



10 DEF FN A<X, Y)=X*Y 

20 1=1+1 ： READ Al , A2, A3, A4 

30 Z=FN A(A1, A2) :G0SUB 100 

40 Z=FN A(A2， A3》 --6031]8 100 

50 Z=FN A(A3, A4) : GOSUB 100 

60 DATA 2,3,4,5 

70 END 

100 IF Z>10 THEN PRINT"ABC M 

110 RETURN 

RUN 

Ci03C203C30DC100DC1103C40: 

CI 00 3 ABC 

C110][50][100]ABC 
C1103C603C703 

[ ] で くくった 行 番号の 表示が 出て きます. ど 
のように 実行して いるかよ くわ かります ね. この 
動作 を 中止させる に は TROFF と 入れて ください. 

m UN し 1ST 

LIST と 人れ て やる と， プログラム を CRT 上 
に 表示で きる こと は ご存知で すね. でも， プ ログ 
ラム を 秘密に してお きたいと きもあります. こん 
なと き は UNLIST と 入れて く ださい. コンビ ュ 
—タは おぼえて いる プロ グラム を だれに も 教えて 
〈れ ません. その かわ リ， UNLIST の あとで は ど 
うしても LIST を 表示して くれない ため， ブ ログ 
ラム 作り を やって いる 途中で は， 使わない ように 
してく ださい. 




7。 □ ゲラ厶 作'） 

WW W くフか <n 
命令ち^ 介しょう. 



m RENUM 

プログラム を 作る とき， 行 番号 を 指定し なくて 
はならず， プログラムの 実行 は 原則として 行 番号 
の MR である こと は， もうご 存知です ね. そして， 
すでに 付け 終わった 行 番号の 間に， さらに 新しい 
行 を 追加して いくこと があります. こんなと き 行 

* 号 をもう-度 格理 して， 新しく 付け直した 方が 
よい 場合が 少なく あ'） ません. こんな 仕事 を 自動 
的に やって くれる のが， この 命令です. 




かっこの 中 を 《咚 し， RENUM だけ を itt 筏 モー 
ドで 人れ て やる と， 行 番号 10 から 10 飛びに 新し 
い * 号 を 付けて くれます. 10 飛びで はなく， 3 飛 
びに しょうと 思ったら， 埘が直 を 3 としてく ださ 
い. 旧 番号のと ころ は， 番号の 付け かえ を 始める 
プログラムの 行 番号で あり， 新 行 番号 は， その 旧 
番サを 今度 は 何とい う 行 番号から 始める のか を 示 
す ものです. 

RENUM し な、 、以前の プロ グラムの 中に GOTO, 
GOSUB. THEN. 0N〜G0T0. 0N〜G0SUB, 
ERL などで 参照して いる 行 番号が あっても， も 

ち ろん 支障の ない よ う に 同時に 付け直し てく れま 
す. 

ただし， 旧 番号 を 使って いる 状態の 場合， たと 
え ば GOTO 25 のとき 行 番号 25 に ブロ グラムが な 
い 場合に は， "Undefined line XX XX in 
' ( X X X X は 存在 しな かつ た 行 番号， 



Y Y Y Y は そ 



レ 



エフ 一 



、、/ 



セージが 出て， 親った 行 番号 は 修正され ず， その 
まま 残ります. 

なお RENUM の コマンドで は， 行 番号 64000 以 
上の 行 番号 を 発生す る こと はでき ません. 



90 



m D£ し ETE 

プログラム を 作って いる 途中で， プログラムの 
—部 を 行 ごと そつく り 削除して しまいたい 場合が 

少なくありません. そんなと きに 必要な のが DE- 
LETE です. 



S BEEP 

コンピュータに 仕事 を させて いる 途中で， 人に 
わかる ように 音 を 出させる ことができます. 



BEEP [スィッチ] 
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DELETE [行 番号 1 ] [ヒ！ [行 番号 2 ] ] 



この 働き を 例によって 調べて みま しょう. 
DELETE 100-200rWTURNn 

行 番号 100 〜 200 の プロ グラム を 全て 削除 し て 

しまいます. なお. 一の かわりに ，（コンマ） を 

使っても 結果 は 同じです （以下 同様）. 
DELETE 300 1 RETURN I 

行 » 兮 300 の プログラム を 削除し ます. なお. 
行 番号 だけ をキ一 インして f^ETURN I キー を 押 
しても その 行 は 削除され てし まいます. 
DELETE - 400 1 RETURN! 

行 番号 0 から 400 までの プログラム を. そつく 

り 削除して しまいます. 
DELETE 500 - I RETURN I 

行 S 兮 500 以後の プログラム を 全て 削除して し 

まいます. 

DELETE- I RETURN 1 

全ての 行 を 削除して しまいます. 同じ 仕事 は 

は NEWLBEIUBIU と 人れ て やっても できます. 
なお， プログラムの 中で DELETE 文が 出て く 

ると， この 命令 を 実行した あと， プログラム を 終 
えて コマ ン ド 待ちの 状 W に 人り ます. 



スィッチの ところ を 1 とすると， ピー ッ という 
音が 出始め， BEEPO に 出会う と 音 は 停止し ます. 
BEEP 1 

INPUT" モシ" ラ ィレテ フタ" サ 
BEEP O 
PRINT A* 



女き^ キー インし ち いど 




10 BEEP 1 
20 FOR 1=1 
30 NEXT 
40 BEEP O 
50 FOR 1=1 
60 NEXT 
70 GOTO 10 



TO IOC 



TO 100 



o o o o 

12 3 4 





変数 は データ を 人れ る 箱でした ね. 同じ 系統の 
箱 をき ちんと 並べて 自由に 操作して やりたい 場合 
が 少なく あり ません . そんなと き 利用で きる のが 

配列 変数です. もちろん 配列 変数 を 自由に 籽 通の 
変数と 同じように 利用す る ことができ るの はいう 
まで もありません. 

DIM 変数 名 （添字の * 大值 

[, as 字の 最大 值] …… ]) 

配列 変数 は， 原 w と し て 上の よ う な 形式で 宜 言 

した あとでな いと 使えません. vr はしないで 使う 

と， 添 宇 は 自動的に 10 に 設定され ます. 

DIMA (5,5) とすると， 図の ように A (0,0), 

A(1.0). A (2,0) …… A(5.5) のように 合計 36 個 

の データ を 人れ る 箱が 用意され ます. もし DIMA 

(5) なら A(0)， A(l), …… ， A(5) の 6 個の 

変数が 用意され る わけてす. この 宜言 をした あと， 

配列 変数 を 使う と 便利な 仕事に 利用 すれば よいの 

です. 簡単な 例 を 見て みまし よ う. 

10 DIM X (2,2) 
20 FOR 1=1 TO 2 
30 FOR J=l TO 2 

40 X(I,J)=X(I-l,J-l)+2 
50 NEXTJ, I 
60 FOR J=0 
70 FOR 1=0 
BO PRINT"X < 
90 NEXT I, J 



この ブ o グラム を 実行して みると 
RUN 



となります. 



PIMX(5) 




DIM A ひ， タ, 




PIM P (X f Y 9 Z) 




J 

， 



X 



J 

2 2 f 

o □ I 

T T = 



o o o o 2 2 o 2 4 

一一 II 一一 II 一一 一一 一一 一一 一一 

o o o 1 1 1 2 2 2 

o 1 2 o 1 2 o 1 2 

XXXXXXXXX 
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レ ^ 



こ で' は CI2T し X、 L7li$ 

いめ" ふれ ラ 《T" ータ会 マ 0 リン タ に 
直 棒 WI し^しち リ，〒 'しタ ご 

し マフ ノレ I ニイ 呆 4 "し. いち リ3> 

乙ネ、 こ ども. で" きミ 





ヒ 3〜 

7》 せ ^キ 




^> ために は .フ。0 ァラ厶 も 

！戶 しい 1"< ラ なく マ/さなう^り そ 



'曹 




だ/ ナで なく， 



__ z /'ラ 7 7 " 
ホ ヒ' 4 な^" ノ^ 

"ま W お' お 
そ ま) し 飞ャ. 




8 人の 学生の 成續 を， キー インに より コンビ ュ 

—タに 伝え， 番号 順に一 K 表に して^す る プロ 
グラムです. 

DIM X(8> 
FOR 1=1 TO 8 
PRINT I "A" ：/ M ; 
INPUT X(I) 
NEXT I 
C し S 

PRINT"t ィ t1= ヒ ヨウ" 
PRINT 

PRINT"iV' ：0"0 ti'tt" 
FOR J=l TO 8 
PRINT J,X(J> 
120 NEXT J 



I I ^ はノゅ お' 

'、つ ？ so i^r^^oz^^. 

'、つ ？ 100 なりた. 11^A^ 
'、つ ？ 95 しなち/め 晤 にな る 



,v、 ：0" O 

1 



45 



0 




o o 

o- o o o o o o o o o 1 

12 3 4 5 6 7 8 9 11 




リ 

... ゥ 

/- ヒ 



u 1 2 3 4 5 6 7 8 ^ 



5 o o 5 o 5 o 

5 9 8 B 1 9 7 



2 3 4 5 6 7 B 



なお， 人数 を 8 人 以下の 任意の 数のと ころで 中 
止したい とき は， 

10 WIDTH 40,20 

20 DIM X (8> 

30 FOR 1=1 TO 3 

40 PRINT 1",、"ン "； 

50 INPUT X ( I ) 

60 IF X (1》 MOO THEN 80 

70 NEXT I 

として， 100 より 大きい 数 を 入れた とき. 初めの 

ループから ぬけ 出す よ う に すれば よ いのです. 

80 WIDTH 80 , 20 

90 PRINT" t ィ t!=F t ヨウ" 

1 00 PRINT 

110 PR I NT" 八" ン IT ゥ t ィ t," 

120 IF X(l)>100 THEN PR I NT: END 

はじめ^ ラ^サ 
出し マ も. ぉづ、 し $ 




130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



FOR 0=1 
PRINT J 
LOCATE 



TO I 一 1 
X (J) ； 
， 2+ j SCO し OR 2 
FOR K=l TO X (J>¥10 
IF X(J)<10 GOTO 190 



PR I NT "本 
NEXT K 
PRINT 

ra し or 7 

NEXT J 



され t ^LfT 
す さと アウ^ > 



t!Yt キ ヒ ヨウ 




A" lO" 0 


tr'、't キ 




1 


52 


***** 


2 


64 


本本: f; 本本 * 


3 


80 


本 * 本 * 水 ### 


4 


フ 0 


******* 


5 


83 




h 


62 


本本 水木 木本 


7 


90 


本 水 ** 


a 


64 


****** 




、ま 敎玄 70、 き、：:" x 印で 

^すゥ 'ラフ かで え 




FOR〜N/EXT ズは 
]013：通 過す る. ^こ Z" 

行 も 170 で 点教が 

/0 5 ^未^のと き は 《T 番^ 

J80i 乙 は、、 寸 ように 

し？ あ 3. 



ま J Y —シ" のフ 。D ゲラ厶 

から. ：: のように し？ 

次第に 文き く L7 



い 
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ここで は 変数 X(8) のように， 一次元の 配列 変 
数と 示しました が， これ を 学校^ に 広げて， 
DIM X (3,3,40) 

のように， 三次元の 配列 変数に してやれば 3 学年, 
各 学年 3 クラス， クラスの 人数 40 人までの 成績一 

表 を 作る ことができ ますし， さらに 敉枓 別の 区 
別 を し たければ 四次元 配列に する こ とに より， 実 
行 不可能ではありません. 

このような 仕事 は， 配列 変数 を 使わない と， と 
て もやり 切れない ことが おわか リ いただけ たと 思 
います. ただし 配列 変数 は， たくさんの 箱 を 用； & 
する わけです から， その 分 メモリ をた くさん 使つ 
てし まいます. 必要 以上の 直言 はやめた 方が よい 
でしよう. 

* たとえ は'. 成 を,' ケ& のない もの 噸 に 並べ か 
える ナ ft 合の やり方に ついて， ^本 的な やり方 をお 
ぼえ ておいて く ださい. 

INPUT A,B,C,D 
IF A<B THEN E=A: A=B:B=E 
IF B<C THEN E=B: B=C:C=E 
IF C<D THEN E=C:C=D:D=E 
IF A<B GOTO 20 
IF B<C GOTO 20 
IF A<C GOTO 20 
PRINT A;B;C;D 

？ 6, —4, 79, 90 
90 79 6 —4 

行 番号 20 で A よ'） B の 方 力 《 大きい 場合， A と B 

の 数値 を 入れ かえて やる I* 作 をして います. つま 

り， まず E という 変数の 箱 を 用意し ます. そして 

今まで A に 人って いた 値 を E に 人れ， つぎに B に 

人って いた 値 を A に 人れ ます. さらにい つたん E 
に 人れ ておいた 値 を B に 入れて やれば よいので す. 



SWAP 変数， 変数 



S 前記の プログラム は， もっと 簡単に 作る こと 
も 可能です. それに は SWAP, つまり 交換す る 

二つの 変数 は 同じ 型で な 

く て はなり ません. 

これによ つて， 二つの 変数の 中身が 入れ かわつ 
てし まいます. これ を 使って プログラム を 作って 
みましょう. 

DIM X<4> 

FOR 1=1 TO 4: INPUT X(I) 

:NEXT 
FOR 1=1 TO 3 

FOR J=I+1 TO 4 

IF X(J)>X(K> THEN K=J 
NEXT J 

SWAP X<I> ，X は:》 
NEXT I 
FOR 1=1 TO 4:PRINT X (I) 
;:NEXT 
110 PRINT 
120 GOTO 20 

行 番号 20 力 < 配列 変数に データ を 人れ る 命令で, 
行 番号 30 〜 90 が 数 W (を 交換す る 作業です. 行番 
号 40 で， F0R〜NEXT の 変数 I の 中に 入って い 
る 数 W を， K という 別の 変数に 移し 込んで おき ま 
す. 行 * 号で X(K) と X(J) と を 比較し， 結果 次 
^で K を J の值 にします. 

たとえば 1 =1 のとき， K =l です. そして X 
(3)>X(1) だとす ると， K = 3 という ことにな 
る わけです. 行番兮 80 で， X(l) の 数と X(3) の 
f お を 交換して しまいます. 変数が 4 個の 場合， 30 
〜90 の ル一ブ を 3 回 （4 一 1 回） 回して やる こと 
により， 全ての 数 依 は 大きい 顺に 並んで しまい ま 
す. 



o o o o o o o o U 

1 2 3 4 5 6 7 8 R 



o c o o o o o o o o 

1 2 3 4 5 6 7 8 9 1 
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卜 リ ； 



ン 



とか 紐の ことで 



コンビ ユー 

タ では 文字列の こと を 意味し ます. そして， 数 傲 

関数 や 数 fift: 定数の^ 合と 同様に， いろいろな 加工 
処理が 可能です. それによ つて， 必要に 応じた そ 
れ ぞれ 異なる 文 車 や 文字 を 表示して やる ことが で 
きます. 

m CHR$ (式） 

普通に 表示され る 文字に は， もうご 存知の よう 

に 英文 字， カタ カナ， 数字， 各 ttK 号 等が あ'） ま 

す. そして， これらに は 付 a に 示す ように， キヤ 
ラ クタ 文字コード という 番号が 付いています. コ 

ードは 16 進数で いうと， 2 桁の 数 ？:00〜FF (10 
進数で 0〜255) でで きています. 

表 を ごらんく ださい. この 2 桁の 16 進数の 上位 
の 桁が 横， 下位の 桁 力 < 縱に 示されて います. たと 
えば 上位 4, 下位 D の 4D の 文字 は， 'NT という 
わけです. この コードに よって， 文字 を 表示 させ 
る こと も 可能です. CHR$ (式） がそれ です. 式 
に 代入され る 数値が キャラクタ コ一 ド になります. 
$ (ドル） 印 は 文字 関数 を 示します. 

式に 代人され る 数 は 10 進数で も 16 進数で もよ 




いのです が， 16 進数の 場合 は そのこと を 示す &H 

(&は アン パ サン ドと 呼ぶ） を 数 の 頭に 付けな 
くて はなり ません. では プログラムで 文字 を 表示 
してみ ましよ う. 

10 FOR I=S<H30 TO ?<HFF 
20 PRINT CHR* ( I ) ; 
30 NEXT I 

これ を 実行す ると， このようになります. なお, 
ここで は 16 進数で 実行して います 力、 &H30 の 
かわりに 48, &HFF のか わりに 255 を 入れて や 
つても 全く 同じ 働き をし ます （48 = 16x3+0,255 
= 16X15 + 15). 行 番号 10 の 数値 を 直して 试 して 
ださい. 



8123456789 ： ;< = >7«ABCI>EFGH I JK し MNOPQRS TUVW 
X だ 〔¥] 八— 、 a|D ode"F3hi j レ 1 mnopoins-tuvujxyz C 1：> —一 

mmam \_%nmmm-\-^-T~\ \ --- \ i 门 ヒ^り 。「_1、'ヲ7 ィ 

つ メルレ ロワ フ、" = t=W ― 

串な 



づ i ね ヱ 





10 FOR 1=0 TO 207 

20 FOR J=l TO 70 

30 IF 0=1 -22* J THEN PR I N'T 

40 NEXT J 

50 PRINT じ HR$(I+48〉 ; 
60 NEXT I 




り 7。 ロク' ラ 凶/ま, - ぼ 
の夂^ ：きヌ 之^/二 

良き さわ/二 爹ノ 盖 
レも もの だ 



RUN 

0123456789 ： ； < = > ？- 2ABCDE 
FGH I JK し MNOPQRSTUVWX VZC 
^3 abcde-f «h i j k lmnofooi 

トー 一 I l«i u 一 

- f ' '—刁 フィゥ I ォねュ 3 ,y 一 アイ O 

"ノテ トナニ ヌネノ 
メルレ □ ワン、、" 

会 ザ o/\xn*« BH 




分 # 干 市 <Z")^ 



▼ 会 
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10 WIDTH 80，25にし5 

20 PRINT" 10 シン 8 シン 16 シン" 

30 FOR 1=1 TO 20 

40 PRINT I 

50 し 01 二 ATE 6, I:PRINT OCT* < I ) 

60 LOCATE 12， I : PRINT HEX*<I) 

70 NEXT I 

80 し OCATE 20,0 

90 PRINT" 10 シン 8i' ン 16 シン" 

100 FOR 1=21 TO 40 

110 し OCATE 20, I - 20 sPRINT I 

120 し OCATE 26, I-20:PRINT OCT* ( I ) 

130 し OCATE 32, 1-20: PRINT HEX* (I) 

140 NEXT I 

150 し OCATE 40,0 

160 PRINT" 10=0 8 シン 16 シン'' 

170 FOR 1=41 TO 60 

180 し OCATE 40, I-40:PRINT I 
190 し OCATE 46, 1-40: PRINT OCT* < I ) 
200 し OCATE 52, I-4G:PRINT HEX* (I) 
210 NEXT I 




m HEX$ (式）， OCT$ (式） 

ェ 7 16 進数と 10 進数との 関係が よく わからな 
いです つて ？ それなら コンピュータに おまかせ 
ください. 試しに， PRINT &H2FF と 人れ て 

みて ください. 16 進数 2FF を 767 と 10 進数に 直 
して 教えて くれます. 

10 進 数 を 16 進数に 直す に は， HEX$ (式） と 
してく ださい. 変換 結果 は， 小数 部分 を 切り捨て 
た あと 実行され， 0〜FFFF の範两 であな たに ft 
えて くれます. 

INPUT A 
Z*=HEX$ (A) 
PRINT 1% 
GOTO 10 
N 
20 

100 

200 
C8 

？ 255 
FF 

《をつ けて いただきた いのは， 結果の J& は 文字列 
として 出て く るので， $ 印 を 忘れない ようにして 
いただく ことと， この 文字列 は 最大 FFFF です か 
ら， 10 逸 敉 にして 65535 までとい うこと です. 



また， 整数 を 8 進数の 文字列に 変換す るに は, 
OCT$ (式） を 使います. 
10 PRINT 

20 INPUT" 10 シン スゥ ラ ィレ 3 "； A 

30 Z*=OCT*(A) 

40 PRINT"8 シン スゥ テ" 八 

50 GOTO 10 

RUN 

10 シン スゥ ラ ィレ 3 ？ 8 
8 シン スゥ テ" 八 10 

10 シン スゥ ラ ィレ 3 ？ 256 
8 シン スゥ テ W A 400 

10 シン スゥ ラ ィレ 3 ？ 65535 
8 シン スゥ テ" A 177777 

10 シン スゥ ラ ィレ 3 ？ 65536 

II legal Function Call In 30 

、 6 5^3 / ょリき 敎) 

li ネ SlX4" の だ'' ノ 




o o o o u 4 4 

i 2 3 a- R 「： 1 0; 6 



97 



ffl 文字 式 

文字列の 合成 を やって みましょう. 文字 変数 を 
使う 場合， 変数 名の 終わりに $ 印 を 付ける ことが 

必要で したね. 文字 式 は 最大 255 文字の データ を 
入れる ことができます. また 配列 変数の 場合に は， 
A$ (1)， A$ (2) …… のように 書きます. 

10 0$=''ァィゥ1ォ" 

20 B*="^773" 
30 サ シス tT ソ'' 

40 D$=" ヲチ' リテ 卜" 

50 Z*=A*+B*+C*+D* 

60 PRINT Z* 

RUN 

アイ ゥ I ォカ 1= クケ ID サ シス t ソヲチ "'テ 卜 

文字列 は， & 字の^ 合の ように 文字の 前に 1 宇 
分の スペースが 出た リは しません. もし 出した か 
つたら， "一 アイ ゥ… のよ うに， スペース を 取 

つてく ださい. コンピュータ 処理の 結 * によって. 

文字の 組み合わせ を 遠え， いろいろな 文章 を 表示 

してやる とお も しろいで しょ う . 

10 A$=" フ ルィゥャ '• 

20 B$="7V77T 卜ヒ "コ厶 '• 

30 C$="S ス" ノ ォ 卜'' 

40 D*=A*+-B*+C* 

50 PRINT D* 

RUN 

フル イケャ カフス" bt" コム ミス" ノ ォ b 



5 モシ" ラ ィレ 3 ？ ュ ゥラ" チヤ 

ュ ゥラ "チヤ ニフ 二 ォモ チヤ ノ U マ ヒ卜 ッ 

5 モシ" ラ ィレ 3 ？ ァチ フカ シ 

アキ フカ シ 二 7 二 ォモ チヤ ノ コマ ヒ卜ッ 

5 モシ" ラ ィレ 3 ？ 八' リ ユキ ャ 

门' リ: 1 キヤ ニフ 二 ォモ チヤ ノ 13 マ ヒ M リ 



m LEFT$ (文字 式， 文字 数） 

ゥ: l ズカ キス ケ 

マ 么 3 斗— ゔ 《ヮノ S 巧 '一 

ム EFT も ヮ） 

図の ように， 文字 式で 並んだ 文字列の うち， 指 

定の 文字 数 だけ 左 （LEFT) 側から 取り出す 働き 
をし ます. たとえば 前 の Z$ は "アイ ゥェォ 力 
キク ケコサ シス セゾ" でした ね. そこで， この 文 
字 列の 中から 新しく 左から 7 文 宇 分 を 取り出し， 
これ を 新しい 文す-列 にして みまし よ う • 
C し S 

8$="カキフケ：3'' 
C$=" サシ 7!t ソ" 
!}$=•• タチ' リテ卜 " 

Z*=A*+B*+C* 

し EFT$ (Z$, 7> 
80 PRINT Z* 

？ィゥ 3： ま 

±im^b ^ J" 厂 了 

5 ス 1 , お, 

7U のえ 物 

7 ま 力 

行 S り- 70 では， Z$ という 変数の 箱の 中 を， 60 
に 校け てす ぐ » き 直して います 力 <, もちろん 別の 
変数 名に しても よい こと はいう まで もありません. 
なお， 文字 数の 部分 を 全体の 长 さより 大きな 数に 
逸ぶ と， 文字列 全体が 表示され ますし， 0 だと 空 

文字列， つまり 何も 文字が 出て きません. 

また， 文字 数 は 変数 や 式に してやっても かまい 
ません. この 際， ここに 入る 数字が 小数点 を 含ん 
でい る 場合に は， 四捨五入され 整数と なります. 

ここで は， 文字 式 を 例と して z$ としました 力、 

式で よいので すから Z$ のか ゎリ に A$ + B$ + C$ 
にしても もちろん かまわない わけです. 




INPUT "5 
A*=A*+" 
A*=A*+" 
PRINT A* 
PRINT 
GOTO 10 

RUN 

5 モシ" ラ ィレ 3 
A ルサ ノヤ ニヮ 二 



？ ,、* サメャ 
ォモ チヤ ノ コマ 



ラ イレ 3 
二 ォモ チヤ 

ヒ 卜'!"' 



o o o o o o o 

1 2 3 4 5 6 7 



o o o o o o 

1 2 3 4 5 6 



シ つ- マ 

t ニコ 
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7 す" ノ tM'tf A 70 テン テ" ス 0 13 レ カラ モ 力" ン A"wr 9 
テンス ゥ ？ 1 00 

7 すラ ノ t. ィ t! 中 A 100 テン テ" ス 0 ：3 レ カラ モ 力" ン 八"' リテ つ 
ラ "サイ o 

テンス ゥ ？ 1000 
Ready 



上 ク" ラム T マ T もき 叉 
9 STR$CX) は 数^^; 

な ウ^" 



m mid$ (文字 式， 文字 位置 〔， 文字 数〕） 

MID$ (文字 変数 名. 文字 位置 〔， 文字 数]) 
- 文字 式 

文字列の 中から， 指定の 場所 （文字 位置） から 
指定の 文字 数 を 取り出す 命令です. もし 文字 数の 
部分 を 省略す ると， 終わりまでの 長さになります. 

前の プログラム のうち 行 番号 70 を， たとえば 
70 Z$=MID$ (Z$, 6, 5) と ift し， RUN させ 
てみ ましょう. 結果 は， 6 文卞 B から 5 文字 分が 
取り 出せる はずです. 

じし S 

A$="7 イゥ I ォ'' 
B$=" 力 1= フサコ" 
C»« "サ シス t ソ" 
D$=" ヲチ' リテ 卜" 

Z*=MID*(Z*, 6,5) 
PRINT Z* 

力 キク ケ:] 



MIDS の 命令 は， また 別の おもしろい 使い方 も 
可能です. 

10 A$=" アイ ゥェォ " 
20 A$=A ま 力 や クケ H " 
30 A$=A$+ "サ シス でソ " 
40 B$=" ヲチ ッテ卜 " 
50 PRINT A* 
60 PRINT 

70 MID*(A*,7,6)=B* 
80 PRINT A* 
RUN 

アイ ゥ I ォ カ申ヮ ケ3 サシス t! ソ 
アイ ゥェ: t ヲチ ツテ卜 サ シス t ソ 

MID の 中で 指定した 文卞 変数 AS のうち， 指定 
の 文字 位置から 指定の 文字 数 だけ， = でつな げた 
文字 式 （ここで は 変数に なって いる） B$ と 31 き 
かえられて しまいます. 



：] レ カラ モ 力- ソ リテ つ ラ、、化 " 




A$=" ァァヲ ノ t. ィ t キ A テン テ" ス * 

INPUT" テンス ゥ M ;X 
B$=STR*(X) 
IF X>100 THEN END 
IF X<=100 THEN GOSUB 70 
60 GOTO 10 
70 MID* (A*, 13,4)=B* 
80 PRINT 
90 PRINT A* 
100 PRINT 
1 10 RETURN 

RUN 

テンス ゥ ？ 70 



PRINT 太で' ズ^^ 欽も 合お す 

5^1 ^も 十 で'も； ，も ホま リ まれ. 

+ ひ 、ゾ 10 A$=" アイ ゥェ ォ" 
^ t^^C- 20 ワウ コ'' 

30 C$=" サ シス tr ソ'' 

40 PRINT A*;B*;C* 
50 PRINT A*-»-B*-*-C* 
RUN 

アイ ゥェォ 力 キフケ 3 サシス IT ソ 
アイ ゥェォ カキフ ゥ：3 サ シス t ソ 





o o o o o o o o U 

I 2 3 4 5 6 7 8 H 



o o o o o 

1 2 3 4 5 



サ ま 
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m RIGHTS (文字 式， 文字 数） 

今度 は 右端から 指定の 文字 数 だけ 取り出す 命令 

です. 

10 ゥ I ォカ 午フケ ：]" 

20 B*=RIGHT*(A* ;i 4) 
30 PRINT B* 
RUN 
や クサ ：！ 



^リ 4 大き 力:. 




v 0^%n 6 5 ^22 1" 



^え 方 は， 今まで 出て きたお 令と I"] じです. た 
指お の文卞 数 か 式の 文卞の K さよ ') 
k き t 、場合に は， 文') 式の 文 'ド 全部 となり ますし， 
0 なら 空 文字列と なります. 



と えば 



m STR$ (式） 

数 使 を 文字列に 変える 命令です. STR$ 

の 式 は 数 使です が， この 命令に よって 出て きた 結 

果は 文字列 になって いるので す. 

PRINT STR*(21> 
21 



同じ 21 でも， これ は 数 他ではありません. 文卞 

列な のです. ^してみ ましよ う. 

PRINT 3+ STR$(21) I RETURN 1 
ビー ッと音 を 出し， Type Mismatch と 出て 

しまいます. もう一 つ 例 を^て みましょう. 

10 A=10 
20 B=5 

30 A*=STR* く A 〉 + '• + " +STR* <B) + ,, =" 
40 PRINT A*; A+B 

RUN 

10+ 5= 15 C Trn 7 , «<<5^x^«j) 




", n , «— ふ/ k"":" 




STR^ にあつ？,^ 11/5、>、 ま 身 
t 化 $れ た 5t き^) J 

圈 VAL (文字 式） 

STR$ と は 逆に， 文字 式 を 数に 変える 命令で 

10 A*="21 " 
20 B*="12 M 
30 C*="?<H12" 
40 X=WM_(A$> 
50 Y=VA し （A ま +B$> 
60 Z=VA し （C$> 
70 PRINT X; Y; Z 
RUN 

21 21 12 18 

PRINT X の 数 は， 文字 式 A$ に 人って いた 文 
'やが, Y は 二つの 文字 式の 結; ft 力〜 そして Z は 
16 進数であった 文字 式が 数 fft に 直されて 出て きま 
した. ただし， お 初の 文字が 数 宇で ない 場合 （16 
進数の 場合 は 0〜F， 8 進数の 場合 は 0〜7 以外の 
文字） に は， 結果 は 0 になって しまいます. 上の 
プログラムで いう と， たとえば A$= "A = 12" で 
あつたと すると， X, Y の 値 は 0 になります. 



m SPACES '個数 > 

文'》: 問 照 を， 指^の 文卞& だけ あける ための 命 
令です. たとえば， SPACE$(5) とすると， 5 
文字 分の スペースが とられます. ただし， 憫 » は 
0 から 255 まででなくて はなり ません。 

A*="ABC" 
B*="XYZ" 

PRINT A* SPACE* (5) B* 
XYZ ， 

し 5"^： ま兮の スヘ 0 〜又 

A= 1 00 
B=500 

PRINT A SPACE* (5) B 

1 00 500 



5 斗 5 文 を 分 タス ゃス 



10 A=100 
20 B=500 

30 PRINT A SPACE* <0> B 

十 s 嫩 

100 



N c N 

o o o u B o o o u 

1 2 3 R A 12 3 R 



ま 2' ，で' す, もしも 化；^ な紋 〔ニコ" ' ま^ 0 まり 
も 入 れ ナ: け) ^は') ンフ ドゎ丄 7 ひ 々八'' 一し マ や^な 

く 2 ゆな リ^せ フ ^！ヮ "ラム は 《の ゲさ' 1? "す. 



m STRINGS (文字 数， キャラクタ コード また 
は 文字 式） 

同じ 文字 や 記号な ど を， 指定の 数 だけ 害き 出せ 
ると 便利な 場合が あります. STRING$ を 使えば 

それ も 簡単に できます. グラフ や 図表 を 作る とき 

便利です. 

10 INPUT X 

20 A*=STRING*(X,42) 

30 PRINT A* 

40 GOTO 10 

行 番号 20 の （ ） の 中に 42 と あるの は， * の 
キャラクタ コードです. X に を 人れ て やる と， 

その 数 だけ * を 横に 並べて く れ ます. 



ゆ" \ゝ , k^l^ さおに 

soo え!^ しォ、 ネ; 5 期 設^^ ° z 

リか、 の マ 叫， しナ: 力、" でもつ 乙 もく 
^ん o え^も イ！ "うどき 1 ま， も ヒ^ £ 

ClEM<S0O 

の わにし 7 あ ~^i^90 

なおれ 




S>TRING^(X,42) 吸 リに 



10 CLEAR 510 
20 INPUT X 

30 IF X >255 THEN Y=X-255: X=255 

40 A*=STRING* (X,42> 

50 B*=STRING*(Y,42) 

60 PRINT A*;B* 

RUN 





255ir 人 t の #女 
X -之お 

i- ouz i ま. B^^v* 
きほ^ね， 



ネ; ♦：* 本本 *： 



# ITS # o * 

R ？ 本 r: # 7 $ 



本 木本 * 水 本本 

木本 本本 本本 本 本本 水 本木 

o 木 木 木木 水 本 

In*- 水木 * 水 水 *- 

水 本水 水 *• 木 
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LEN (文字 式) 



圈 LEN 

文字列 が 何 文字 になって いるか を 調べる 命令が 
これです. 



プログラムの 例 を >i ましよ う. 

10 A*=" 123456789" 
20 Z=LEN(A$〉 
30 PRINT Z 
RUN 

9 



ザ' 



RUN により， 9 という 結-! ft を^る はずです. 、 
は お な じ みの ジ ュ ゲム ジ ュ ゲムが 何 文字の 
スト リングに なって いるか 《« ベて みまし よ う. 

10 C し EAR 400 
20 11$=" シ" コゥ" 厶シ" ュケ' '乙" 
30 I2$=":T 3 ウノ スリ チレ" 

13$="カ イシ" ャ リス イチ" ョ ノス ィ亨" 国ゥ マ' リウ:/ ライマ ッフゥ ライ マツ" 
14$=' 'クウ ネル 卜 ido ニス 厶 卜コロ ャフ" ラコゥ i 广 ノフ" ラコ ウジ" " 
15*="^° .1 ホ 0 A° 1 ホ 0 i\° ィホ 0 ノシ ュ 一 リンカ w ンシ ュ 一 リンカ" ンノ 7* 
16*= "9" 一 ひ- -' ラ" イノ 本 * コヒ。 一 ノホ 0 ンホ 0 コ: r_" 

17*=" ノチ 3 ゥ窄 3 ウメ イノ チ轚 ウス ケ" 

L=LEN<I1$+I2$+I3»+I4$+I5$+I6$+I7$) 




40 

50 
60 
70 
80 
90 



一 リン タ" 1 " 



1 00 PRINT し 



これ を RUN させる と， 結 * は 165 と 出て くる 

はずです. 一定 k さの 文' r- ゃ&卞 を キー インして 

やる プログラムの 埸介， BHifi えて 余分な 数， ある 
いは 足りない 文字 数 を 人れ てし まう ことがあ り が 



ちです. しかし， LEN を 使えば 簡単に 防止す る 
ことができます. その他， いろいろ 工夫して 利^ 
できる のが LEN を 使った 命令です. なお 行 
10 について は CLEAR の で 説明 します 



C し S 

INPUT "r マエ ラ ィレ 3 ";N* 
し = し EN(N$〉 
K=300+ し #16+8 

し INEiD (298,96〉 -(K, 110) ,PSET,4,B 
LOCATE 19, 10:PRINT H% 

I ラ ザレ 37 FUJITSU 



U 



c c o o o o マ 

1 2 3 4 5 6 卞. 
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S ASC 

指定した 文字列の 设 初の 文字の キャラ クタ コ 
ドを 出して やる ことができます. 



ASC (文字 式) 



い くフ かの 文^ず 1 
の 中 力、 ら 通文苓 が 

A の もの だ け^ 



10 A*= ,, ABC" 
20 Z=ASC<A*) 
30 PRINT Z 

RUN 
65 

RUN の 結果 は 65 です. S 初の 文'; "-A の キャラ 
クタ コード は， 付おから わかる ように &H41. つ 

ま り 10 進 » にして 65 だからです. 

この 文 を INPUT 文に してみ ません か？ 行 番号 10 
を INPUT A$ に すると？ ときいて きます. そこで 
ABC と 人れ て やる と， やはり 65 の 結 * を^ます. 

m INSTR 

指定され た 文字 を 探索して， ^ つかった 位置 を 

出す 命令です. Wfii 検索な どに 利用 するとた いへ 
ん 効果 を 上げる ことので きる 命令です から， ぜひ 
大いに 利用して ください. 



INSTR ([検索 開始 位置,] 
文字 式 1, 文字 式 2) 



例に 



よ つ 



簡単な プログラム を 見て みましょう. 



10 A*="TOKYOTO SETAGAYAKU SANGENJYAYA" 
20 A=INSTR(2, A*, "S") 
30 PRINT MID*(A* ? A, 10) 

RUN 

SETAGAYAKU 

行 番号 10 力 は 字 式 1， すなわち A$ です. この 
中から 文字 式 力 f 何 文字 目にある か を 探して 
いるの 力 《 行 番号 20 です. n " の 中が SE であつ 
て も SETAGAYAKU であって も かまいませんね. 
その 結果が A です. A に は 8 が 入って いる はずで 
す. つまり， A$ の 8 文字 目から という 意味です. 

そこで， 行 番号 30 で MID$ を 取 1 ) 出して いま 
す. 实ネ亍 させる と SETAGAYAKU の 10 文字 力 s 




10 X*(1)= ,, GINZA" 

20 X$<2)= M AKASAKA" 

30 X*(3)= ,, HARAJUKU" 

40 X*(4)="UEN0" 

50 X*(5)="A0YAMA" 

60 X*(6>= ,, ASAKUSA" 

70 FOR 1=1 TO 6 

80 A=ASC(X*(I> ) 

90 IF A=65 THEN PRINT 

100 NEXT I 

RUN 

AKASAKA 

AOYAMA 

ASAKUSA 



X$<l>="ANDO" 
X* (2>="ABE" 
X*(3)= M AKIYAMA" 

FOR 1=1 TO 3 
B=ASC(MID*(X*<I) ? 2 
IF B=66 THEN PRINT 
NEXT I 



N E 

c- o o o- o o o u E 

1 2 3 4 5 6 7 R A 



SPC f 個数)， TAB (桁 位置) 



二つの 命令 を 比べて みま しょう. 

10 PRINT" AAA " TAB < 1 0 ) " A 11 

20 PRINT"BBB M SPC(10> "R" 
RUN 

AAA A 
BBB B 
行番兮 10 は TAB, 20 は SPC を 示して います. 

結果 は， TAB の 場合 は 左から 10 文字 目に A 力、 
そして SPC の 場合 は BBB の 終わ り か ら 10 文字 
目に B が 表示され ています. 

では， （ ） の 中 を 100 にして みましょう. 



B 

この場合， CRT 上で は 横 1 行 40 文 宇に なって 
います. そうです. TAB は， 1 行で 表示し きれな 
いとき は， 1 行の 文字 数て 湖った 余りの 偷， この 
場合 は 100+40=2 余 り 20 で， 左から 20 文字 目に 
A が 表示され ている のです. また SPC の 方 は， 
ちゃんと BBB の あと 100 文字 目に B の 文字が 表 
示されて います. これで TAB と SPC の 類似点, 
相 点が おわか りいた だけた と 思います. どちら 

も （ ） の 中 は ft 大 255 です. 
TAB, SPC は^ 接 ストリング 関数と は閱係 あ 

りません 力、 これら を 利用 するとき 欠く ことので 
きない 命令です. 



出て くる こと は， もう 説明し なくても おわかりで 
しょう. 行 番号 20 の （ ） の 中の 2 は， A$ の 2 
文字 目から 探せ， という 意味です. 

10 A*="TOKYOTO SETAGAYAKU SANGENJ YAYA" 
20 A=INSTR(12, A*, "S") 
30 PRINT MID*<A*,A, 12) 

SANGENJYAYA TOfCYOTO SET ままび 



26 21 22 2324 SSUif2iJ13o 




「5)C^ のん 物 



m SPC. TAB 

いずれも， PRINT 文の 中で， 字数 を あけて やる 
ときに 用いられる です. 



行 番号 20 で 探し 始める 文字 位 ;t を 変えて みま し 
た. 行 番号 30 も 少し 逸って います. 実行の^ 果は 
SANGENJYAYA の 11 字に な リ ます. 

4. 7 で 示した ように， 配列 変数 を 使い， たとえ 
ば A$ (1)， A$ (2) …一 に 次々 に データ を 入れて 
や')， この 中から 特^の W 報 だけ をぬ き 出して や 
る と きな どたい へん ftfi 利です. 

A* ( 1 )="SATOU TOSHIG" 
A*(2)="TANAKA HAJIME" 
A*(3)="SAIT0U TETSUO" 
A* (4)="YANADA TOSH I O" 
FOR 1=1 TO 4 

A=INSTR<A*<I) , "TOSHIO") 

IF A >0 THEN PRINT A« ( I ) 
80 NEXT I 

RUN 

SATGU TOSHIO 
YANADA TOSHIO 



PR I NT " AAA " TAB ( 1 00 ) "A" 
PRINT M BBB"SPC( 100) "B" 



o o o o o o o 

1 2 3 4 5 6 7 



NAB 

o o u A B 

12 R A B 
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4.9 




ここで は， 付録に 示す ような 澳字 やひら がな そ 
の 他の 文字 を コードに よって 指定して， 表示す る 
方法 を说 明し ます. この 方法に よって 表示で きる 
文字 は， 澳字 2965 饨， ひらがな その他の 各 《 文字 
合わせて 753 f*， 合計 3418 种 （JIS 第一 水 *) で 
す. このように， 漢字 だけでなく 各^の 文字が あ 
ります 力、 ここで は 代表して 漢' ギ と 称する ことに 
します. なお， いうまでもない ことです 力、 漢字 
を 表示させる に は， パソコンに 漢字 ROM カード 
という もの を 取りつ けなくて はなり ません. ただ 
し， FM_8 は 漢字 キャラクタ セットと いう 16 個の 
ROM を 装着し ます. これらの 取りつ け 方に つい 
て は， 説明 害 を 参照して ください. 



PRINT® [(X, Y)，] 漢字 コード 
[I ； I [漢字 コード]] …… 



はじめの X, Y は グラフィック 座標で 先頭の 文 
字の 位 31 を 示します. つまり， 横が X， 縱 Y の 位 

S に 漢字の 左上の 角が くるわけ です. なお， -> 
の 漢字 は， 16X16 の ドット パターンで できて いま 
す. また， 座標の 指定がない とき は， つぎの 漢字 
列 は， 前に 表示され た澳 字の， つぎの 行の 左靖か 
ら 表示され ます. もちろん， 前の 漢字の 指定の 後 
に， コンマ や セミコロンが ある 場合に は それにし 
たがいます. 

座標 指定の 後に tft くの が 漢字の コードです. 付 
表で は， 漢字 は 16 ビットつ まり 16 進数で 2 桁の 数 

値で 示されて います. これ を 見ながら ""漢字 j と 

いう 文字 を 画面に 表示して みまし よ う. 



いちいち コード^ 棵之 

5 く？ お 蓋 字お、 け 3 



字 
セ 



ワ〜 にフ 0 ロセ' ソサラ 

ァ o ゲラ厶 もお さギ 



まず， 澳 という 文字です. 1 "力 j の 項 を 見る と 

344X の 行に あります. そして， 横に 2 文字 目です 
から， 上の 数字 を 見る と 1 になって います. そこ 
で X のと ころに 1 という 数 を あてはめれば よいの 
です. つま り 3441 が漢 という 文字の コ一 ド です. 
もちろん， この コード は 16 進数です から， この 数 
の 前に &H という 記号 をつ けなくて はなり ません 
ね. 同様にして 調べる と. 字 は &H3B7A という こ 
とがわ か ります ね. 

10 C し S 

20 PR I ( 1 00 ,50) , S<H344 1 , S<H3B7A 




ク" ラ フィ", フ^^ 



FM-11 に は， この 指定の 他に 現在の カーソル 

の 位 a に 漢字 を * 示させる 命令 もあります. 



KANJI 漢字 コ―ド い ：| [漢字 コード]] 



'JiK の プログラム を 調べて みまし よ う. 
10 C し S 

20 LOCATE 10， 10 

30 KAN J I ?<H3441,3<H3B7A 

これによ つて， 指定の 位 ffi か ら i» 字が * 示 さ れ 
る はずです. なお， 詳細に ついては 文法 害 を 参照 



してく ださい. 





LOCATEA.B 
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FUJITSU HICRO 8 デ モンス ト卜シ 3 ンブ o グラム 

" • - な 

• * * * • リ • き- 

2 mm 

3 

4! 



m やな どの 日 本 SS を 表わす のに, こ こ では JIS 
の コード を 指^して います. ffi 上 通に は U 本 を 

I'l 由 に 使 t 、 分け できる 処^ を^め る ために， f J 本 

m\m^.JEF というた いへんす ぐれた システム 

があります が. FM シリーズ もこれ にしたがって 
ぉリ， JEF コードに よつ て 指' ぶする こと も 可能で 
す. 



J£F コ— に は コー —V ^長 V： 

まひ SO 
S^HBOAt 〜 




ナル： fm-8 m 

i. 職, i 

3. 職よ る 縦 デ-タ 霸 

4. ガル 力 セルフり ビゴ <ス クにフ 7 ィ續 

'- 勵ト 



2 ケ、 ァ關顏 



付表 づ、 5 夂 に け …- た どえば' 年 S ョ めコ- ドな 





上ィ ± i 


下:!: 本 


ネン - 


ん r> つ 

…― 472 i 




^"7 一 


— 376 j 


B • 


ニチ 一 







个 



%H4 寄 

小 




確嗞 が 



コ—p 




び IS C 622 C ゆ 線 夂堆用 
ぬ. H 2 き敉 小ら 
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FM- 8 での 表示の 例 



pp ^腿誦 i 膨 




ら がな だけ を PRINT しま 
す. 行番兮 10 は， 初めの 文 宇 • あ ，で 位置 決めし 
ている わけてす. また 行 » 号 60 は， せっかく 表示 
された 文字 を こわさな いように， カーソル を 移し 
て やる ための 命令です. 
0 CLS 

0 PRINTS (0, 100) ,.^H2421, 
0 FOR I=?<H2422 TO ?<H2473 
0 PRIMT5)I， 
0 NEXT I 
0 LOCATE 0, 16 




ああい いうう ええお おかが 
どなに ぬね の はばば ひび ぴ 
も をん 




く ぐけ げこ ごさ ざし じすす せ ぜそぞ ただち ちつ つづて でと 
ぶへ ペペ ほぼば まみむ め" やゆ ゆよ よらり るれ ろ ゎゎゐ 



C し S 

A(0)=S<H456C 
A ( 1 ) =3<H357E 
A(2)=3<H4554 

A<4)=8<H4544 
A<5)=2<H432B 
A(6)=?<H3668 

A(S)=?<H382E 
A(9)=?<H4363 
A (10=8^3230 
FOR 1=0 TO lO 
140 PRINTS) (200+20* I 
150 NEXT I 



な は 文^ち 
一^す' フ: t& フス 
f ま？ fT ^表禾 すま フ 。口 ウラム 

— ひ /^丁 /^女で 

ィ乍フ Z もい いよ. 



• 



1 00 ) 5 A<I> 



東京都 tifflSE 三 軒 茶屋 



^了 /3： 付^ t ^ さと 

の^ ffl • 
/Oil 教に 直す と 
72327 〜 1236 1 

I： なさ ぽ 




上の プログラム はァで 始まる 漢罕 だけ を 表示す 

るブ ログ ラムて す. @ の あとの （ ） の 数 は， CRT 

上の 座標の 位置です. もし （ ） を 省略す ると， 

画面 左上から 噸に 表示して きます. そして， 二回 
目に RUN すると， 前に 表示して きた 文字の 次 か 
ら 表示が 始まります. では 実行して みましょう. 



C し S 

PRINTS (0， 130) ， 12321 , 
FOR 1=12322 TO 12361 
PRINTS I, 
NEXT I 



1 2 3 4 5 6 



o o o o o o o o o o 1 2 3 

12 3 4 5 6 7 8 9 1111 



o o o o o 

1 2 3 4 5 
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妹 A 



I 



； «F *^ #A 




4<f * ミ 




® 奎最 



n 



ぶ 



付. も. 



怖. 



^ よ J J. J^J- o 

H 32m ytm ^ ^ 赠 ^ ？ 4^ ^ 

(43 介） (2^) (t2^t) a%) (3 分） 

^ I ^ S/ i7. Y V. ^ I 

續 あ 讓& 'も纖 あ 簡 Ik 
チ^ 




J 二 1ぉ —— 



〃 



〃 



720 



ひ '• 



コンピュータで 音楽 を 奏でて みま しょう. 

テンポ， 音 長， 音の 波形. など を 指定す る 命令 
が あり， これらの コマンド を 使って 自由に 音楽 を 

iii (奏する ことができます. なお， ここに 示す 命令 

文 は， FM-7 と FM-11 に 有効です. 

音楽 を 《 奏する ために は， 音楽の 基礎 知 a が必 
要です ね. ちょっと 復習して おきましょう. 





4 ~ ir 



4 —— l 



JJ1 
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S PLAY 

音 を 出す ための コ マン ドは PLAY です. 



PLAY"MM じ'！:， "MML"[, "MML"]] 



MML と は 音楽 浈奏 のた めの 言語で. Music 
Macro Language の 略語です。 ここで 音の 高さ や 
大きさ， 長さな どの 指定 をし ます。 'MML'， を 
二つ または 三つ 並べる と 和音 を 出す ことができ ま 
す. 

なお FM-11 の 場合 は， 和音 は 出ません。 

S 音程 

前 ページの ィ ラストの よ うに A〜G で 音程 （眘 
の « さ） を あらわします。 半音 上げる ときの シャ 
ーブは # か + を， 半音 下げる フラットの 場合 は， 
—を ネ V： の あとに つけます. 
まず ft 初に 
P し AY"C" 

と 人力して fWETURN I キー を 押してく ださい 

C の 音が 出ました ね. なお， BASIC が 起動した 

初期の 状態で は， テンポ 100 で 4 分 音符の 長さに 

なって います. 

10 P し WCDEF" 

20 P し AY"GFED" 

30 P し AY''CDED" 

40 P し AY"CEC" 



のか） 音力 求 づ、" ffi せ 3 き. 



A 



初 脾き定 ひ i 



オクターブ 

オクターブ は 0 であら わし， 0 に 枝く 数字で ォ 
クタ一 ブの 上下 を 示します. 1〜8 までの 8 オタ 
タ一ブ が 音域で. 初期の 状態で は 04 に 設定され 
ています. 
P し AY.'OSA" 

上の ように 05 とすると， 1 オクターブ 商くな 
03 にす ると 1 オクターブ 低く なり ます. この 

ように 数字が 大きく なるほど， オクターブが 上が 
る わけです. 

なお， 楽器の 調律な どに 利用す る 基準 周波数の 
440Hz の 音 は， 04 の A の 音になります. この 例で 
は， 05 ですから. オクターブ 上の A の 音つ ま り 880 
H Z になります. また. 前述の ように， PLAY 
W 05A" を 人力した 後で 
P し AY"AGF" 

とすると， オクターブ 上の ラ， ソ， ファと 铳 け 
て « 奏されます. これ を， 初期の オクターブに 展 
すに は 

と， オクターブ を 指定し 直さなくて はなり ませ 
ん. また 




04A g 05C 



'ソ 



のように， ドを オクターブ 上に あげる 場合 は 

P し AY"a4AB05C" 

とします. 

音量 

な -W は v で 桁' 4i し, v の あとに o 〜はまでの » 
： を 入れて 音の 大きさ を 変えます. 

この 例の ように 15 にす ると 一番 大きな 音が 出 ま 
す. 小さく するとき は， この 数字 を 小さく して 下 
さい. なお， 初期の 設定 は V 8 になって います. 

また， オクターブの ときと 同じく， 一度 指定し 
た ボリューム を 変える とき は 

のように， 音程の 前で V の 指定 を 入ます. 
なお， FM-11 では 音 S の 指定 はでき ません. 



109 



全音？ 7 


L1 1 


L1A* 


付 点 2 分 音符 


し 2 し 4 


L2A. 


2 分 rf n 


L2 


L2A 


付 A 4 分 音符 


し 3 


L4A. 


4 分 音 符 


し 4 


L4A 


付 点 8 分 音 W 


し 6 


L8A. 


8 分 


L8 


L8A 



* 



付. な 16 分 符 


L12 


L16A. 


16 分 音符 


L16 


L16A 


付 点 32 分 音符 


L24 


L32A. 


32 分 杏 符 


L32 


L32A 


付 点 64 分 音符 


L48 


L64A. 


64 分 音 W 


L64 


L64A 



* は A の fVW の 例をボ す. 



休符の 推定 



― 


全 休符 


R1 1 


r 


付 点 16 分 休符 


R12 




付 点 2 分 休符 


R2R4 




16 分 休符 


R16 




8 分 休符 


R2 1 




付 点 32 分 休符 


R24 


お 


付 点 4 分 休符 


R3 1 


ミ 

r 


32 分 休符 


R32 




8 分 休符 ； 


R4 1 


付 点 64 分 休符 


R48 


T 


付 点 8 分 休符 


R6 




64 分 休符 


R64 


7 


8 分 休符 


R8 









m テンポ 

t は テンポ を 決めます. つまり， メトロノーム 

の 役割 をす るの が この 命令です. T に くの は 32 
〜255 までの 数字で， これ は 4 分 音符が 1 分 間に 
浪 奏される 数に あたります. 
P し AY"T32C" 

とすると， 4 分 音符の K さは 1 分 間の 32 分の 1 
になります. 
P し AY"T64C" 

なら 64 分の 1 ですから， 同じ 4 分 音符で も T32 
のとき の 半分の 長さに なって しまいます. つま り， 
T の あとの 数 « が 大きく なるほど， テンポが 速く 
なる わけです. なお， BACIC か 起動した 状態で 
は， T100 に 設定され ています. 

« 音 長 

き : ^は L と 1 〜64 の &卞 であら わします， 4 分 
音符 は L 4 にあたり ます. 

P し AY"T100 し 1C" 

この 例の ように 1 のとき feK で， 全音 扦に 相当 
します. したがって 2 分咅扦 は その 半分の L2, 
8 分 な符 は L8 になる わけです. 



もちろん 1〜64 までの 数値で あれば， 下表 以外 
の敏を とる こと もで きます. 

また， 付 点 は 音程の あとに ピリオド をつ ける こ 
とで あらわします. 休符 は C， D, などの 音の 指 
定の 代わ り に R を 入れれば いいのです. 
P し AY" し 4CDER£4.D4,C4， " 

なお， 上の 例の ように， UC L8A などと する 
代わりに， C4 A8 とする こと もで きます. この 
場合， 付 点 音符 は， C 4. A 8. のように， 音 長の 
&卞の 後に • を 人れ てくだ さい. 

それで は， MliU な メロ ディ をなら してみ ましよ 

10 P し AY"V8T10004 し 4" 
20 P し AY''CDEFt3AB05C" 

ドレ ミフ ァ〜 の 音 W の プログラムです. 行 番号 
10 で， V. T. L, 0 をお J 期の 設定に もどして い 
ます. 20 で ドレ ミフ ァ〜 を 液 * しました. 20 のお 
後の C の 音 は 0 5 として オクターブ を 上げて いる 
のが 分か ります ね. 

なお， FM-11 の 場合 は， 行 番号 10 の V 8 の 指お 
はでき ません. 



音符の 指定 



0 よ J-丄 J よよ 
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このような 和 の B4 能 を 応用 し て 作 つ た の 力、 
次の プログラムです. なお， 行番兮 160 の S と M 
について は. 後述の エンベロープ パターンの Jfi を 
参照して ください. 

10 CLEAR 800 

20 A1*="04E4C4R4E4C4R4E4G8R 
8G8E8C8E8" 



C# は N2 といった 具合に， 08 の B まで を 1〜 
96 の 数字に S きかえる ことができます. これ を特 
殊 音程と いい， 音程との 吋応は 下表のと おりです. 

P し AY"N46" 

とした 場合， N46 は^から わかる ように 04 の 

A X"9 力 1 b 

P し AY"t)4A" 



音程と 特殊 音程 (Nn) の 対応 表 



音 




オクターブ 


0 1 


0 2 


03 


04 


0 5 


06 


0 7 


08 


ン 


B 




N12 


N24 


N36 


N48 


N60 


N72 


N84 


N96 




A# 


A+ B — 


Nil 


N23 


N35 


N47 


N59 


N71 


N83 


N95 


ラ 


A 




N10 


N22 


N34 


N46 


N58 


N70 


N82 


N94 




G# 


G+ A — 


N 9 


| N21 」 


N33 


N45 | 


N57 


N69 


N81 


N93 


ソ 


G 




N 8 


1 N20 


N32 


N44 


N56 


N68 


N80 


N92 




F# 


F+ G — 


N 7 


1 N19 


N31 


N43 


N55 


N67 


N79 


N91 


ファ 


F 




N6 


N18 


N30 


N42 


N54 


N66 


N78 


N90 


、 


F 




N5 


N17 


N29 


N41 


N53 


N65 


N77 


N89 




D# 


D+ E - 


N4 


N16 


N28 


N40 


N52 


N64 


N76 


N88 


レ 


D 




N3 


N15 


N27 


N39 


N51 


N63 


N75 


N87 




c# 


C+ D - 


N 2 


N14 


N26 


N38 


N50 


N62 


N74 


N86 


ト' 


c 




N 1 


N13 


N25 


N37 


N49 


ヽ '61 


N73 


N85 



N46 = 04 A=440Hz 



m 和音 

PLAY 文 を 使って 和音 を 出して みまし よ う. 
FM-7 は， 3 個の 音源 を 持って いるた め， 3 重 和 
音 を 出す ことができます. 

pi a v n 「 '• » p " g 11 

麵 




A2*= H D4R4F403B4R404D4 n 
A3*= n 03G4R404D4F8RaFaDS0 

3B804D8C4R4 IJ 
B1$="03C4E8R8E£JR8" 
B2*= ,I 03F4G8R8G8R3" 
B3*= " 02B403D8R8F8R8 •• 
B4*= U 02B403F8R8F8R8C4R4 11 
C1*= ,, R403C8R8C8R8 M 
C2*= " 02R4B8R8B8R8 •' 
C3$=''02R4£t8R803D8R8" 
C4*= " 03R4D8R8D8R8E4R4 " 
X1*=A1*+A2*+A3* 
X2*= I, R4 I, +B1*+B1*+B1*+ 

B2$+B2*+B3*+B4* 
X3*= M R4 n +Cl*+Cl*+Cl*+ 

C2*+C2*+C3*+C4* 
PLAY M T 1 30S0M3500 H + X 1 * 
PLAY H V12T130 n +Xl*, H V9T 
130"+X2*, "V9T130"+X3* 

m 特殊 音程 

迕 fi を N と 1 〜96 の 数字で 指定す る 方法 も あり 
ます. この 方法で は， 音程 を 半音 も 含めて 12 音程 
として 扱います， たとえば， 01C は N1, 01 



P し AY"V8T6004 し 4'、 

し 4"， 
し 4" 

FOR 1=1 TO 2 
P し AY"D マ 'F マ' 
P し AY"D" ， "F" , 11 B H 
P し AY"E", "G", "05C" 
P し AY"R", "R", "R" 
NEXT I 



o o o o o c- o o 

o o o o o o o O 1 2 3 4 5 6 7 

3 4 5 67CDC711111 1 11 



o o o o o o o 

1 2 3 4 5 6 7 
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と 同じ 意味になります. 

こ の 命令の 使い方で 輪唱 という の はいかが でし 
よ ラ- 

10 9し0¥"1"：130し4ソ8"， 

"丁130し4ソ8"， "丁130し4ソ8" 
20 A$ ( 3 ) = " N37N39N4 1 N42N4 1 

N39N37R" 
30 A* < 4 ) = " N4 1 N42N44N46N44 

N42N41R' 1 
40 A* (5) ="N37R4N37R4N37R4 

N37R" 

50 A*<6)= ,, N37N39N41N42N41 

N39N37R" 
60 FOR 1=1 TO 6 
70 P し AY A*(I) , A*(I+1) , 

A$ (1+2〉 
80 NEXT I 

N の 後の 数値 を， プログラム によって 変化 させ 
る こと もで きます. 

10 FOR 1=37 TQ 49 
20 P し AY"N"+STR$m 
30 NEXT I 



を 指定す るに は， S と M の 命令 を 使います. S は 
0〜14 で 指定し， これによ つて 以下の 表の パター 

ンを 選択す る ことができます. なお， ェン ベロー 
ブ パターン は FM-7 のみに 有効です. 

パターン 0 (0〜3, 9 のい ずれ か） の 波形 を 
使って， ピアノ タ ツチの 音 を 作って みましょう. 
P し A Y " S0M2000CDEFG " 

これ を オルガンの 音に 近づける に は， 0 を 13 に 

変えて やれば いいのです. M の 指定に ついては 次 
の エンベロープ 周波数の 項 を ごらんく ださい. 

なお， S で 指定した *fe 合 は， V コマンド によつ 

て 指定した 数値 は 無効と なります. s を 解除す る 

に は， 再び V コ マン ドで 音量 を 指定して ください. 

m エンベロープ 用 波 数 

M は S と ペアで 使用し ます. M の 後に 0 〜65535 
までの 数 宇 をつ けて， S で 指定した パターンの 周 
期 を 指定して やります. つまり， 下のお でい うと， 
横軸の 時 問 をムす T を 指定す るの が この 命令です. 

以下に T の 計算 式 を 示します. 



エンベロープ パターン 

音の 立ち上がり 方 や 波形な ど を 調整し， 音色 を 
変えて やる のが エンベロープ パターンです. これ 



T _256Xn 



(杪） n= 1 〜65535 



2 0 お n ただし， / =1. 2288MHz 



ンべ □ ープ パターンと S コ マン ドの 》«n との 対応 表 

(«M は 音量， 横 輪 は 時 W) 



S, 



ン ベロ一 ブ パター 



0〜3,9 
ト 7, は 

8 
10 
11 

12 
13 
14 
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10 CO し OR 4sCLS 
20 A*=INKEY* 
30 IF A$="C" 
40 IF A*= H F M 
50 IF A*= M V H 
60 IF A$="G" 
70 IF A*= ,t B tl 
80 IF A*= ,l N n 
90 IF A*= H J M 
100 IF A*= ll M n 
1 10 IF A*= H K H 
120 IF A$='、 " 
130 IF A$=" し" 
140 IF A*= n . " 
150 IF A*= ,, / H 
160 IF A*= n R M 
170 IF A*= n 5 M 
180 IF A*= i, T 1- 
190 IF A*= M 6 n 
200 IF A$="Y" 
210 IF A*= ll U t< 
220 IF A$= M 8 M 
230 IF A*= M I M 
240 IF A*="9" 
250 IF A$="0" 
260 IF A*= n 0 M 
270 IF A*= H P" 
280 IF A$="S>" 



THEN P し AY M 
THEN PLAY" 
THEN P し AY" 
THEN PLAY" 
THEN P し AY" 
THEN P し AY" 
THEN P し AY" 
THEN PLAY 
THEN PLAY 
THEN P し AY 
THEN PLAY 
THEN PLAY 
THEN P し AY 
THEN P し AY 
丁 HEN P し AY 
THEN P し AY 
THEN PLAY 
THEN P し AY 
THEN P し AY 
THEN P し AY 
THEN P し AY 
THEN P し AY 
THEN P し AY 
THEN P し AY 
THEN PLAY 
THEN P し AY 



1 1 



1 1 



S0M5000T255 し 504C" s 
S0M5000T255 し 5C34C+" 
S0M5000T255 し 504D" s 
S0M5000T255 し 
S0M5000T255 し 504E 1 ' s 
S0M5000T255 し 504F" ： 
SOM5000T255 し 504F+" 
" S0M5000 丁 255 し " 
S0M5000T255 し 504G+ 
S0M5000T255 し " 
"S0M5000T255 し 
" S0M5000T255 し " 
" S0M5000T255 し 505C " 
" SOM 1 000T255 し 505C " 
" SOM 1 000T255 し 
" SOM 1 000T255 し '， 
" SOM 1 000T255 し 505D+ 
" SOM 1 し " 
" SOM 1 000T255 し 505F " 
" SOM 1 000T255 し 505F+ 
" SOM 1 000T255 し " 
" SOM 1 000T255 し 
" SOM 1 OOO 丁 255 し 505 A " 
" SOM 1 000T255 し 
SOM 1 000T255 し " 
S0M1000T255 し 506C" 



1 1 



II 



PRINT H C H ; 
sPRINT"C# •' 
PRINTED M ; 
sPRINT"Dtt " 
PRINT n E M ; 
PRINT n F 
:PRINT H F# '• 
:PRINT M G M ; 
"■,PRINT"G# 
:PRINT M A n ; 
n :PRINT M Att 
:PRINT M B 
:PRINT H C M ; 
:PRINT M C M ; 
":PRINT n Ctt 
:PRINT M D 
'リ PRINT'Dtt 
:PRINT M E 11 ; 
:PRINT"F 11 ； 
"iPRINT'Ttt 
:PRINT M G 11 ; 
'リ PRIN 丁'' Gtt 
:PRINT H A 
H :PRINT"Att 
:PRINT M B 11 ; 
:PRINT"C " ; 



I 



290 GOTO 20 



この 式から， T は M の 後の 数値に 比例して 大き 
なって いくのが わかります. 簡単な 例で 調べて 



よ つ . 

P し AY"S0M5000PT 
M5000 を 前ぺ一 ジ の 式で 計算す る と 

T 2. 08Xn_2. 08X5000 
= 1.04 

つまり， 1.04 杪 という ことになります. したが 
つて 0 の パターンの 波形 は 1.04 杪で iS (奏される こ 
とになります. 



了- 1.0今きパ 



〜 



闩しハ^'581^1000丁32し10" 

この 例で は， 8 の 波形の つ ^が 0.208 杪で浪 
奏されます. ここで は， 波形 を 分り やすくす るた 
めに， 音 を 長く 設定して あります. この 例の S と 
M の 数值を 入れ かえて いろいろと 試して ください. 

S と M の 命令 を 使って， コンピュータの キ一ボ 



—ドを ピアノの キーに 仕立てた のが， 下に 示す プ 
ログ ラムです. たたいた 音が 画面 上に 表示され る 
楽しい プログラムです. 




お^) J) ラフ 0 口つ" 
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m SOUND 



SOUND PSG の レジスタ 番号， データ 



略語で， FM — 7 の 発抿装 S のこと です. SOUND 
命令 を 使う とき は， PSG のしく み を 理解す る 必要 
があります. 下 は PSG の 構造 図です. なお， この 
命令 は FM — 7 のみに 適用で きます. 



しと は， Programable Sound Generator の 



！ゥ敏 やゆ" レ^ス ダ^き;^ え は'、 SoU WD7,I> とす^: ミゃケ に 討し 
て， D ^い >=f"- マ^ネき^ マ 3: どに^^. ' 

% ミキ サに I まら 個 り スィ、 v チカ" ぁリ, ザ - ダ/: よ, て と'' りス ゃノチ が^ぐ^ 小" i もまる. ち ど 

え/ま", M 0 ,M ュ， M 3 もつな^^、 ヒきは 63-O+4 + 8)=50 ^ SOUND «7，50J: ね, 

«>ォ 'バレ- ダは 3も且 お:)， 吆 2 も & の レジスタ 《、5?' 'きてい 3. 亍" ーダ / ホ t6ift$5c/r 
レ 7 3 けちり 像 尜で指 できる. こゥ 3 け/ "： り牧 のどき, 上位 1 けた はお 則り L ジス 
ク, ア^ 2ケ たり^ rl^6 ィ艮 リウ レジス ダ/: ヌ じえば'！) 小： «H1?D なら 

SOt/MD O, ^3 / c"crwA へ， f 二 沢' ネオ ッシレ —タ 1 玄ィ奢 "^例^す. 
(； OUNt) 1 I (ぶ 1 クリ |^ 39f o" 二 ^H5"P どし？ も^じつ と. 

ネソシ し- ク1 , ミキ サ アツ テネ- タ 1 









o 

レー 2^ - 




3 2 

オッ^ t ータ 3 


画 


い； 1 





ゆ〜 は H 



ロー' ォ 



〜が 0〜25"5 



ノイス "'ジ み レーダ 
〜ひ 

-' 6 w':， き 
めォ' 'ルレ-タウ^ あつま" の A: にお さ. 



ェンぺ '口一 7* ジ エネし 一^ 




"V^^ テネづ は 3 沾 




于' ニタ り^: 埴 小" 人 
きくなる^:" 丈き な 

* にな 3^fe' レ 16 



音ネ i 乙 P とゥ間 1^ は 化へ 0 — ジ っ表參 きき. 
ノな 1 * リエれ -タの チ^ 嫩も 上^ 】 =ょ3. 

<S> 口一 オフ > 卜ダゆ ヱンべ a- ア' り ^ さ 丁お 辨 

D 力 値 | れ にし けち ひ6 に ふ ：> の^.:: の^つ 上ィ] t 幺けた （ 
8 ビ "め は し- スタ は， 下ィ 42 け も ぴビッ 10 は レジスタ «ほ 入る. 



は閉ィ あじす ： エンマ 0 

一 7。 巾 'かづ、 ふように 

お JZ 、 

SO リ MIM3,D に 3 さ ご ユンべ、 0- フ， 
の ハ 0 ターニ^つ 紊ま ,マ くき. ；、 V -ン 

<0B^ , ^々へ ジ" © を 奪 鶴ズ. 

D ( 12 マ-ゆ ゆ 0 〜 7 f のゲ ii や" ネま 
&でま 5. 
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s 初に ォッシ レー タと アツ テ ネー タを 使って 音 

を 出して みまし よ う. 



10 SOUND 0, 175 
20 SOUND 8,8 
30 SOUND 7,62 



マお、 ら 440Hz ぱ 

ns にな 5 



行 番号 10 で レジスタ 0 を セットし ています. デ 
ータは 175 ですから， 440H Z の 音が でる ことにな 
ります. 行 番号 20 は レジスタ 0 と时応 する アツ テ 
ネ一タ の レジスタ 8 を 設定して， 音 fi: を 8 に 指定 
しています. 

10 SOUND 0, 175 
20 SOUND 8, 8 
30 SOUND 7,54 

この 状態で は， ミ キサの 1 と 8 が 関いて いて， 

ォッシ レ一タ からの 音と ノイズ ジュネ レークから 

の ノイズが いっしょに W1 こえて きます. なお， ノ 
ィズを カツ トす るに は， 行 »キ>30 行の データ を 62 

に すれば いいのです. 

10 FOR 1=1 TO 255 

20 SOUND 0, I 

30 SOUND 8, 12 

40 NEXT I 

50 SOUND 7, 63 

この 例の ように， データに 変数 を 使う こと もで 
きます. また， ？ f を |1. める ときの一 例と して. 行 
» 号 50 で ミ キ サのチ ャ ン ネル を 全 節 閉 じています. 



次の プログラム は， ノイズ ジ エネ レー 

ベ ローブ を 使った 例です. 

10 SOUND フ， 55 

20 SOUND 8, 16 

30 SOUND 6,30 

40 SOUND 11,0 

50 SOUND 12,7 

60 FOR 1=1 TO 80 

70 SOUND 13,4 

80 IF I >40 GOTO 100 

90 FOR J=l TO 16* (40-1) 

:NEXT J 
1 00 FOR J=l TO 16* (1-40) 

:NEXT J 
110 NEXT I 

圈 SOUND 甩波 数， 持 «l 時 聞 

この 命令 は， FM-11 のみに 適用で きます. 

SOUND 440， 200 

この 例の 440 が 周波数， 200 が持統 時 問と な り ま 
す. S 波 数 は 20〜32767Hz， 持統時 M は, 0.05 杪 
単位で 1〜65535 倍の 長さ を 指定で きます. たと 
えば， 880Hz の 音 を 10 杪 III! ならす 場合 は， 
10+0. 05=200 ですから. 
SOUND 880,200 
とすれば いいのです. 



音程 (用 波 数) と データ （D) の IUJ 係 (データ は 16 進数) 





01 


02 


03 


04 


05 


06 


07 


08 


^れ 


データ 




データ 


• 液數 


〜 
一 


mtm 


データ 


属浚 ft j データ 


mmm 


データ 


難 ft 


データ 


職 tk 


、 


C 


32-703 


92C 


65.406 


496 


130.81 


24B 


261.63 


126 


523.25 


93 


1046.5 


49 


2093 


25 


4186 


12 




34.648 


8A9 


69.296 


454 


138.59 


22A 


277.18 


11S 


554.37 


8B 


1108.7 


45 1 


2217,5 


23 1 


4434.9 11 


1 D 


36.708 


82C 


73,416 416 146.83 20B 293.66 106 


587.33' 83 


U74.7 41 2349*3 21 


4698.6 


10 


Dfi 


38.891 


7B7 


77.782 


3DB 


155.561 1EE 


311.13 


F7 


622.25 


7B 


1244.5 


3E 


2489 


IF 


4978 


F 


E 


41.203 


748 


82.407 


3A4 


164.81 


1D2 


329.63 


E9 


659.26 


74 

6E 


1318,5 


3A 


2637 


ID 


5274 


E 


F 


43.654 


6DF 


87.307 


370 


174 編 


1B8 


349.23 


DC 


698.46 


1396-9 


37 


2793.8 


IB 


5587,7 


E 


F» 


46.249 


67 D 


92.499 


33E 


185 


19F 


369.99 


DO 


739.99 


68 


1480 


34 


2960 


1A 


5919.9 


D 


G 


48.999 


61F 


97,999 


310 


196 


188 


392 


C4 


783,99 


62 


1568 


31 


3136 


18 


6271.9 


C 


G« 


51.913 


5C7 


103.83 


2E4 


207.65 


172 


415.3 


B9 


i 830,61 


5C 


1661-2 


2E 


3322.4 


17 


6644.9 


B 


A 


55 


574 




2BA |220 


15D |"0 


AF 880 


57 


1760 


2C 


3520 


16 


7040 


B 


A# 


58.2 7 


cn 
to 

CXI 


1 293 | 233.08 


| UA 


466.16 
[493.88 


AS 

j 9C 


932.33 

|987.77 


52 


1864,7 


29 


3729-3 


15 


7458.6 


A 


B 


61,735 


] 4DC 


123.47 


26E [246*94 


137 


4E j 1975.5 


27 


3951.1 


13 


7902,1 


9 
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「 



4.11 



TIME$，DATE$， 




F M シ リー ズに は畤 問 をき ざんで いく 時計が 内 
蔵され ています. 



TIMES 



TIME$ の 形式 は， 
HH ： MM ： SS です. 

HH • ••• 00^23 の 時 問 

MM …… 00〜59 の 分 

SS …… 00〜59 の杪 
であ リ ， 電源 投入 直後 は, 全て 00 ： 00 ： 00 に セ ッ 
ト されて います. 

同 « に 内 * タイマ は， H 付 を^ わす こと もで き 

ます. 



行 番号 10， 20 が 時間 と 年月 日 の 初期値の 設定で 
す • 1984 年 2 月 28 日の 23 時 59 分 30 杪に ^定' ざ 

れ ています. 

RUN すると， f 由 i[fii を クリャ した あと， 年月日と 

時間 を 表示して きます. 1984 年 は， うるう年です 
から， 2 月 は 29 日まで あります. 正しく 動作す る 
かどう か を， 実 PR に试 してみ てくだ さい. 

84/02/28 84/02/29 

^> 

23:59:30 00:00:01 



lu TIME*= M 23:59:30" 
20 DATE*="84/02/28" 
30 C し S 

CO し OR 4,0 
LOCATE 15， 8， 1 
PRINT DATE* 
CO し OR 7,0 
LOCATE 15， 10, 1 
PRINT TIME* 
GOTO 40 



いろいろと 工夫して 時計の プログラム を 作って 
みません か？ 左 図の ような 時計 を 画面に 表示 させ 
たり， 時間に なると アラーム 音 を だしたり， 音楽 
を かなでた りする， 楽しい 時計 を 作る こと も 可能 
な はずです. 音楽の 演奏 方法 は 前述のと おりです. 
アラーム を 中止す るに は， どの キー を 押しても よ 
いように 作る のがい いでしょう. 特に 目覚し時計 
の 場合 間違い 易い からです. 



DATES 



DATE の や 式 は， 
YY/MM/DD 

です. 

YY …… W 暦に よる 年で 下 2 桁 

MM … … 门 

DD …… 日 

ていされます. 

どのよ う な 使い方 をす るか は プログラム 例 を E 
てくだ さい. 
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仃 あり 20 で ff- を 85 がに する ヒ 

TIME*= ,, 23:59:30" 
DATE*="85/02/28 n 
C し S 

CO し OR 4,0 
LOCATE 15,8；, 1 
PRINT DATE* 
CO し OR 7,0 
し OCATE 15， 10， 1 
PRINT TIME* 
GOTO 40 

85/02/28 85/03/01 
23: 59: 30 00 : 00 ; 0 1 



o o o o o o o 

4 5 6 7 8 9 1 



o o o o o- o o o o o 

12 3 4 5 6 7 8 9 1 



似た ような 使い方が できる^ 令と して， TIME 

と DATE という システム 変数が あ り ます. TIME 

は， 00 ： 00 ： 00 から 杪 単位の 時刻 を 変数 TIME の 

中に 入れ込みます. また DATE は， 1 月 1 日 を 基 

準と する 合計 日数 を 人れ 込みます. 
TIME, DATE の プログラム 例 を 示します. 

10 TIME*= ,I Oi:00:OO u 
DATE*= , '84/02/01" 
C し S 

CO し OR 4,0 
LOCATE 15,8, 1 
PRINT DATE 
CO し OR 7,0 
し OCATE 15， 10， 1 
PRINT TIME 
O GOTO 40 

PATE 本- V/W 

咖ぉ 2 
E$=oroo:oo" 




71 WE, DATE li 
ので. 《の 5 き W によつ 2 い 3 ，る 

》 な #'» オイ I' 
あ' は 用 




行 S 兮 20 で 84 年の 2 月 1 日， 行 番号 10 で 1 時 

間 を 設定して いるた め， この プログラム を 実行す 
ると， 上側に 緑の 文字で 1 月 1 日からの B» を， 

ド 側に 白で 0 秒から 何杪 たって いるか を 表示して 
きます. TIME$ が 1 時間， つまり 3600 ^た 後 

ですから， 3600 以上の 数が 1 杪 ごとに 1 ずつ 加え 
られ ていきます. 

このような 時間の 経過 を 数えて いく 仕事と， た 
とえば ある 時間 ごとに 何ら かの データ （たとえば 
計 刺 器の データ 読み取り など） を 銃み 取ったり す 
ると きに 便利です. 



10 C し S=T=5 

20 TIME*= m OO:00:OO m 

30 IF TIME=T THEN BEEP 1 

40 IF TIME=T+2 THEN BEEP 0 

50 CO し OR 4，0:： し OCATE 15, 10, 1 

60 PRINT TIME* 

70 GOTO 30 




10 INPUT"i パ、 3 ワラ ィレ 3 HH:MM:SS " 

； T* 
20 TIME*=T* 

30 INPUT "7 ラー 厶シ" 3 フ HH:MM:SS " 

； A* 

40 CIS 

50 LOCATE 15, 10, 1 

60 IF TIME*=A* THEN BEEP 1: 

INPUT "9 ライ レ 3"; A 
70 IF A=9 THEN BEEP O: A=0: 

CLS:PR1NT"7 ラー 厶ス 卜' リフ e " 
80 PRINT TIME* 
90 GOTO 50 

硯 り^お) ど 7 ラ-ム^お/も 

( OS;30 ：00 •' • 細 I や 琳难 

r "7 "ふミ もこ どに、 主^ J 

アラーム B^j か 1 |ニ7 ^之 ヒー ズ にな》. 



ヒに 玄 ヒめ ぶこ は 




o 

2 



o o o c C .(. c C 

3 4 5 6 7 8 9 1 
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4.12 



タイマ 割り込み 



TIME ON 




1 ON TIME GOSUB 

内蔵 時計の 時刻が， 指定した 時刻に なつ 
で， 割') 込み をす る サブルーチン であり， 形式 は 
次のと おりです. 



ON TIME GOSUB 行 番号 



行 番号 は， この サブルーチンの 先頭に 置きます. 
この 文で^^ してお くと， TIME ON 文の ステー 
トメ ントの あとで， 時計の 時刻が TIME 文に 指定 



した 



こな 



；こ， サブルーチンの 方に 実 



行が 移ります. また 割り込み ルーチンからの 

は， RETURN によ り ます. 




圈 TIME 

この 命令文に よって 割り 込み をす る 時刻 を 与え 

ます. 



TIME "hh ： mm ： ss 



hh は 時刻， mm は 分， ss は 秒です. TIME 
ON の ステート メント で 割り込みす るよう に^ 
した あと， TIME 文で 与えた 時刻に， ON TIME 
GOSUB で 定義 した サ ブル一 チンの 実行に 移り ま 
す. 



、の 命令文 を 実行した あとに， タイマ 割り込み 

がで きる ようになります. もちろん， 割り込み サ 

ブル一 チン は ON TIME GOSUB 文で 定義され 

ていなくて はなり ません. サブルーチン を 実行中 

は， それまでの プログラム は， 当然 RETURN 文 
で サブルーチン か ら 復 帰す るまで 中断され ます. 

また 梯 する 場所 は， RETURN の あとに 行 番号 
が ■«? いて あれば そこへ， もしなければ GOSUB 文 
の 直後の 文です. 

食 堂 




♦ TIME OFF 

この 命令文に よって， それ 以前に 設定され てい 
た TIME ON を 解除し タイマ 割り込みが できな 
くなります. 





TIME0FF 



m TIME STOP 

タイマ 割り込み を一 時 停止し ます. すなわち， 
TIME 文で 与えられた 時刻 は g 己 使して いる 力、 割 

り 込み はこの ステ一 ト メント に 出会う とでき なく 
なります. 割り込み 力せ なわれ るの は， 次の TIME 
ON 文に 出会った あとです. 



«ゃ ^^土 飞 



10 TIME*= l, 00:00:00 M 
20 C し S 

30 ON TIME GOSUB 80 
40 TIME "00: 00: 05" 
50 TIME ON 

60 LOCATE 10, 10:PRINT TIME* 
70 GOTO 60 

80 LOCATE 10, 10:PRINT TIME* 
90 FOR 1=1 TO 100: BEEP 1 

:NEXT I 
100 TIME "00:00: 09" 
1 10 BEEP O 
120 RETURN 




10 TIME^' 1 00:00:00" 
20 C し S 

30 ON TIME GOSUB 80 
40 TIME "OOsOOsOS" 
50 TIME ON 

60 LOCATE 10, 10:PRINT TIME* 
70 GOTO 60 

80 LOCATE 10, 10: PRINT TIME* 
90 FOR 1=1 TO 100: BEEP 1 

•-NEXT 
100 A=A+1 
110 IF A=l THEN 

TIME "00:00: 10" 
120 IF A=2 THEN 

TIME "00:00: 15" 
130 BEEP O 
140 RETURN 



m では， 実際の プログラム 例 を 調べて みまし よ 
う. 

10 TIME$="0O:OO:O0" 
20 C し S 

30 ON TIME GOSUB 80 
40 TIME "00; 00; 10" 
50 TIME ON 

60 LOCATE 10, 10: PRINT TIME* 
70 GOTO 60 

SO し O じ ATE 25, 10:PRINT TIME* 
90 BEEP Is FOR 1 =1 TO 5000 

:NEXT I 
100 BEEP 0 
110 RETURN 



で啼 事 もし？ い 3 

^き ヤシ ト^ Ao, 



行 番号 10 で， 内蔵 時計の 時間 を 設定し ます, 
行 番号 30 で， ON TIME GOSUB で 割り込み 

がか かつ た と きの サブルーチンへの ジャンプ を 指 

定 しています. そして， 行 S や 40 で 割り込み を ％ 
生させる 時間 を 指定して います. 
TIME が この 値になる と， サブルーチン （行番 

り- 80〜110) に 移動す る わけです. サブルーチン 
の 仕事 は BEEP を 鳴らす 仕事です. 

このように. ON TIME GOSUB 文 を 使う こ 

とに より， ふだん は 件 通の 仕事 をして いても， あ 

る 時刻に なると， 全く 別の 仕事 をさせる ことが で 

きる わけです. ここで は， わかりやすく する ため 

に， ふだん は 1 秒 きざみの 時間 を 表示して いて， 

10 秒た つたら ピー を 鳴らします. 

TinE$="OOsOO=00" 
C し S 

ON TIME GOSUB 80 
TIME"00; 00; 10" 
TIME ON 

LOCATE 15,8:PRINT TIME* 
GOTO 60 

SYMBOLWS, 120) ：, 

TIME*, 7, 4, 4 
BEEP 1 : FOR 1=1 TO 5000 
:N£XT I 

BEEP O 

RETURN 表 



Q o o o o o o o o o 1 

12 3 4 5 6 7 8 9 11 
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4.13 


| インター ノ W レ 

ノ お 







一定の 時間 を 経過す る ごとに， 割り込みの 仕事 

をす る 命令です. 



ON INTERVAL GOSUB 行番婦 



Interval は， 問 W という 意味です ね. 前述の ON 
TIME GOSUB 文に よく 似て います 力、 一定間 

ごとに 劊 り 込みの 仕事 をす る 点 力 < 違います. 



INTERVAL 割り込み M 隔 



割 り 込み 聞 隔は秒 単位で あ り ， 肚 65535 秒 ま 
での 指定が 可能です. 

m INTERVAL ON 

ON TIME GOSUB を 使った 命令文の TIME 
ON の 場合と M 様， INTERVAL で 指定され た 時 
間 間隔での 割 り 込みが でき るよう になります. 



この 命令文に よつ 



m INTERVAL OFF 

TIME OFF の *tt 合と M 様， 
て ON INTERVAL GOSUB の 割り込み 力 f 解除 
します. （^上 フ 6 D ク 



INTERVAL STOP 

TIME STOP の 場合と 同様に， 割り込み 動作 
を一 時 的に 停止す るのに 使われます. すなわち， 

はしません. 割り込み 再開 は， 次の interval — 

ON の 命令が あった と き です. 

圈 では， 実際の プログラム 例 を 調べて みまし よ 
ラ- 

10 TIME*="00:00:00" 

20 CO し 0R7，0 

30 C し 1=1 

40 ON INTERVAL GOSUB 90 

50 INTERVAL 10 

60 INTERWM__ ON 

70 し OCATElCSlO^OsPRINT 

TIME* 
80 GOTO 70 
90 CO し OR 1,0 
1 00 1=1+1 

110 IF 1=8 THEN 1=1 
120 RETURN 

10 杪 ごとに 表示 文字の 色 を 変える プログラムで 

す. 別の 仕事つ まり サブルーチン は， 行 番号 90〜 
120 です. 

TIME $ で 内/ « 時計の 設定， 行 番号 40 で 割り 
込みが かかった と きの サブルーチンの 行 番号 を 指 
定 します. 行 番号 50 カリ NTERVAL の 時間 設定 
の プログラムです. タイマ 割り込みの 場合と 非黹 
によく 似て いますね. 



90 CO し OR 1,0 
100 1=1+1 

1 10 IF 1-8 THEN 
120 FOR _J=1_ TO ： 

i3o"h j^rr-T = 

140 RETURN 



米 ^しく 'MJjDbr=-Q^F & ^^ 
7W ラム. 



寸 つ' リレー 壬ン T 

,/^ダタネ，^ 
凌 峰] MAmf 




70^ 
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4.14 




ファンクション キ 一を 使って， この キーが 押さ 
れた とき， 定義され ている 別の 仕事 をし ます. 



ON KEY (ファンクションキー 番号） 
GOSUB 行 番号 



次に 示す KEY (n)ON の 状態のと き， この フ 

アン クシ ヨン キー を 押す と， それまで けて いた 
プログラム を一 時 中断し. 指定され た サブ ルー チ 
ンの 方に ジャンプ します. 

m KEY (n) ON 

この 命令文の あとで， I PFn I の キー を 押す と, 

サブルーチン 力 湖り 込みます. 

M KEY (n) OFF 

ファンクション キーの 割 り 込みが できな く な り 
ます. 

« KEY (n) STOP 

ファンクションキーからの 割り込み を， 次に KEY 
(n) ON がく るまで 中止し ます. 

これらの 動作 は， プログラム を 走らせて いる 間 
だけで， その 場合 は 通常で も， ファンクション キ 
一の 操作 はでき ない わけです. したがって ブ ログ 
ラム を 作って いる 場合 は， もちろん 通常 どおり 》 
いて くれます. ただし， 一度 プログラム を 走らせ 
たと き， もし KEY (n) OFF がない と， ファン 
クシ ヨン キーに は 鍵が かか つた まま の 状態に な り 
ます. 

これ は， KEY (n) STOP のま まの 状態で も 同 
じです. 必ず KEY (n) OFF を 突 行す るよう に 
しなく て はなり ません. 

M では 例によって KEY (n) ON を 使った プロ 
グラム 例 を 調べて みまし よ う. 



10 ON KEY(l) GOSUB 120 

20 ON KEY (2) GOSUB 140 

30 KEY < 1 > ON 

40 KEY (2) ON 

50 FOR 1=1 TO 10000 

60 A#=A#+I 

70 NEXT 

80 KEY ( 1 ) OFF 

90 KEY (2) OFF 

100 PRINT " 1 カラ 10000 マテ" 

ノ コ" ゥ ゥ ィ' ， u Att 
110 END 

120 PRINT " イマ マテ" ノ IT ゥケィ "jAtt 
130 RETURN 

140 PRINT ' 'ケイ サ：/ カイ スゥ' '；； I 
150 RETURN 

ファンクション キ 一1， 2 を 割り込み 用に 使つ 
た プログラムです. プログラム は 1+2+ + 
10000 という 長い 加算です. 行 番号 10, 20 で それ 
ぞれ KEY ( 1 ) と KEY ( 2 ) の M り 込み 用サ ブル 
一 チン を 指定して います. 

そして， 行 番号 120 〜の サブルーチン は， メイ 
ン ルーチン である 行 番号 50〜70 の 中で， 今まで 
の 加算の 合計 はいく ら になって いるか を 教えて く 
れ ます. また 行番リ 140 〜は， F0R〜NEXT 力 < 
今のところ 何 回 まわって いるか を 教えて く れるサ 
ブルー チンです. 



、 t 曰 の 力、 力、 さ 

_ 'ロケ' ラム も怍フ 7" 二の 厂ニ 
it 中で' K6ri. 

も: すヒ 途中の^ 遮 

を衣眾 し Z く 1« さぞ 




RUN 

イマ マテ" ノ コ" ゥケィ 83028 

ケィ サン カイ スゥ 429 

イマ マテ" ノ 3"ゥ クイ 1258491 

クイ サン カイ スゥ 1600 

イマ マテ" ノ =T ゥ ケィ 8592585 

ケィ サン カイ スゥ 4149 

イマ マテ'、 ノ コ "ウサイ 19291366 

ケイ サン カイ スゥ 6218 

•1' マ マテ" ノ コ" ゥケィ 42969170 

ケィ サン カイ スゥ 9271 

1 カラ lOOOO マテ" ノ コ" ゥケイ 

50005000 
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4.15 


PRIMT 1 


文字 またに 
します. 


t 数値 を， 指定した 害 式で 画面に 表示 


PRINT 

フ才— 


盡 1 謹 1 1 

USING 
マツ ト 文字列 ； 文字 or 数« 



文字， 数 偵 はセ ミ コロン； または コンマ， で 区 

切られます. 直接 モードの 例によって， どのよう 

な 9J きをす るの 力、， また フォーマット 指定の 方法 
I ベて みまし よ う. 



圈 文字列の 場合 

(1) ！ 

与え られた 文字列の S 初の一 文字 だけが 表示 さ 
れ ます. 

A*="ABCDEFGHIJK M 
Ready 

PRINT USING" ！ " ; A* 
A 

Ready 

(2) &nfW の ゃ白& 

nfl^i の やに 1 (n20) ピ&" で 囲みます. 二 
のと き 与えられた 文' ド 列の^ から， n + 2 個の 
文字が 出力され ます. もし^ えられた 文字列が n 

+ 2 より 短い 場合 は, 左に 文字 を a め, 残り は 空 
白が 表示され ます. 

A$= ,, ABCDEFGHIJK" 
Ready 

PRINT USING"?-: S<"; A* 

ABCDEFG 

Ready 
A*="AB" 

Ready- 
PR I NT USING' 'タノ S/ M ; A*; ,, 12" 
AB し 12 

S 欠^ 

Ready 



m 数 僅の 塌合 

(1) # (ナン ハ i 己 号） 

ナン ハ 1 己 号の 個数に よ つ て 表示す る 数字の 桁 数 
を 示します. 数値 は 右詰めで 表示され， 左側の あ 
いた 部分 は 空白 が 詰め られ ます. 

負の 数値 は 負符号 力 < 先頭の 数字の 左に 表示 さ れ, 
この 符号 も 1 桁と して 数えます. 

A<1)=12 
A<2>=12345 
A(3)=123456 
A<4)=1234567 
A<5)=1.2345 
A (6) =-123 
A(7>=-123456 
FOR 1=1 TO 7 

PRINT USING"#####" ; A<I> 
NEXT I 

RUN 

12 
12345 
"/.1 23456 
"/. 1234570 
1 

-123 
"/.- 123456 

(2) • 小数点 

数 wc 領域の f r: 意, の ところに 小数点 をそう 入す る 

こと を 指示し ます. 小数点に 統 いて ナンパ 記号 （s) 
が ある 場合 は， 小数点 以下に 指定され た 桁 数 分 表 
示されます. 




A<1)=123 
A(2>=12.34 
A<3)=123. 456 
A<4)=-0. 123 
A(5)=-0.0015 
A <6) =-0.0001 
FOR 1=1 TO 6 
PRINT USING 

90 NEXT I 
RUN 

123.000 
12.340 
123- 456 

一 0， 123 
-0.002 
-O-0OO 



o o o o o o o o o o 

1 0^ 3 4 5 6 7 8 9 1 



c -(* c o c c c に- 

1 2 3 4 5 A- 7 8 
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(3) + (ブラス） 

フォー マツ ト 文字列の S 初 または 最後の ブラス 

記号 は， 出力す る 数値の 前 または あとに 正負の 符 

号 を 付けて 表示し ます. 

10 A(l )=12 

20 A(2)=123 

30 A (3〉 =123， 4 

40 A(4)=-0. 123 

50 A(5)=-123 

60 A(6)=12345 

70 FOR 1=1 TO 6 

80 PRINT USING"###+"; A(I) 

90 NEXT I 

100 PRINT 

110 FOR 1=1 丁 0 6 

120 PRINT USING"+tttttt M |i A<I》 

130 NEXT I 

RUN 

12+ 
123-*- 
123+ 
O— 
123— 
7.12345+ 

+12 
+ 123 
+ 123 
-0 
— 123 
12345 

(4) 一 （マイナス） 

フォー マツ ト 文字列の ft 後の マイナス 記号 は， 

ft の 数 W (の あとに マイナス 符号 を 付ける こと を 指 

定 します. 

10 A<1)=12 

20 A<2)=12345 

30 A (3)= - 1234 

40 A(4>=-123 

50 A(5)=-123456 

60 A (6》 =123456 

70 FOR 1=1 TO 6 

80 PRINT USING"tttt#*»tt —";; A(I> 

90 NEXT I 

RUN 

12 
12345 
1234- 
123 - 
7- 123456- 
-/-123456 



( 5 ) * * { 2 個の ァスタ リスク） 
フォーマット 文字列の ft 初に 置かれ， 数値 領域 
の 上位 桁の 空白 部分に アスタリスク が 表示 され ま 

す. 

2 個の アスタリスク は， 2 桁 分の 領域 を 確保し 
ます. 

10 A(l)=12 
20 A<2)=12345 
30 A<3>=12.34 
40 A(4)=-123 
50 A (5) =-123456 
60 A(6)=1234567 
70 FOR 1=1 TO 6 

80 PRINT USING''##tt4M**M*''ii A<I〉 

90 MEX 丁 I 

RUN 

****#12 
##12345 
****#12 
***-123 
-123456 
1234570 

(6) ¥¥ (2 憫の 円記号） 

フォー マツ ト 文字列の * 初に 二つの 円記号 を 害 
く と， 出力され る数愤 の h 位^のお 前に 闪記兮 を 
表示し ます. 

二つの 円記号で 2 珩 分の 領域 を 確保 し ま すが， 
¥ 記号 も 1 桁 分と なります. 

10 A(l)=12 

A<2)=12345 
A<3》=12，34 
A(4)=-123 
A<5)=-123456 
A<6)=1234567 
FOR 1=1 TO 6 

PRINT USING' , ¥¥tttt### ,, iJ A<I> 
NEXT I 

¥12 
¥12345 
¥12 
-¥123 
7.-¥ 123456 
■/.¥ 1234570 



o o 

2 3 



o o o o o o 
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(7) **¥ (2 個の アスタリスクと 円記号） 
フォー マツ ト 文字列の 最初に **¥ を 害く と， 

(5), (6) の 両方の 機能 を はたします. **¥で 

3 桁 分の 領域 を 確保し ますが， ¥ 記号 も 1 桁 分 取 

ります. 

10 A<1)=12 
20 A(2)=12345 
30 A(3)=12. 34 
40 A<4)=-123 
50 A(5)=-123456 
60 A (6> =1234567 
70 FOR 1=1 TO 6 

80 PRINT USING" **¥####" ； A ( I ) 

90 NEXT I 

RUN 

****¥12 
#¥12345 
****¥12 

：* (本 一 ¥123 
X-¥l 23456 
X¥ 1234570 

(8) , (コンマ） 

小数点 位!！ 指定の ？ の 左側に 3E かれ， 》 数 
部 を 右側から 3 桁 ごとに コンマで 区切ります. コ 

ンマを 表示す るた びに その 桁が 確保され ます. 

10 A( 1 )=12345600 

20 A<2)=12345.6 

30 A (3) =1.23456 

40 A(4)=0. 123456 

50 A(5)=-123456 

60 A<6》=—1，23456 

70 FOR 1=1 TO 6 

80 PRINT USING"#tttt##tt#"tt#"5 

A<I) 
90 NEXT I 
100 PRINT 
110 FOR 1=1 TO 6 

120 PRINT USING"**#######tt#, H ； 

A<I> 
130 NEXT I 

RUN 

7.12,345,600.00 
12,345.60 
1.23 
0. 12 

-123,456.00 1 2 ? 345 ? 600 

-1.23 12,346 

1 
0 

-123,456 
-1 



(9) AAAA (4 個の 矢印） 

ナン ハ' 記号 （#) の あとに 置かれます. この 指 
定 により， 指数 形式で 表示で きます. 4 個の 矢印 
は， E 土 n n を 表示す る 領域 を 確保し ます. ナン 

バ 記号に より， 有効数字が 指定され， 指数 は それ 

に 合わせて 調^されます. 

10 A(l》=123^>00 
20 A(2)=12345-6 
30 A (3> =1-23456 
40 A<4)=0. 123456 
50 A(5)=-123456 
60 A (6) =-1.23456 
70 FOR 1=1 TO 6 

80 PRINT USING"#tttt ん 、'、へ";; A<I〉 

90 NEXT I 

RUN 

12E+06 

12E+03 

12E-01 

12E-02 
-12E+04 
-12E-01 

(10) 文字列の 表示 

フォーマット 文字列の 中に， 害 式 指定 文字 以外 

の 文字 を 害く と， その 文字 を 表示し ます. この 例 

では コを 表示して います. 

10 A(l)=123456 

20 A(2)=12345.6 

30 A(3)=l. 23456 

40 A (4) =0.654321 

50 A(5)=-12345 

60 A<6>=-1234 

70 FOR 1=1 TO 6 

80 PRINT lJSING"#tttt#*» コ " ； A(I> 
90 NEXT I 

RUN 

-/. 1234563 
12346=) 

13 

13 

•/.- 123453 
-1234=1 

注） フォーマットで 指定した 桁 数で 出力で きな 
い 場合 は， 数値の 先頭に パ一 セント （％) が 出力 
されます. ％ は オーバーフロー を 表わします. 
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4.16 




ERRZER し 



ON ERROR GOTO 行 番号 




コンピュータ は， あなたの 命令に 間違いが ある 
と， そのむ ね を 表示し， エラーの 内容 を 表示して 
くれます. このと きの 表示 内容と その 意味 は， 付 

a に 示して あります. 

BASIC では， このよう にいく つかの 決め られ 

た 内容 を 表示させる こと 以外に， あなた 自身が 決 

めた エラ一 を 表示させる こと もで きる のです. 
エラーに 関係す る 命令に は， 次の ような ものが 

使われます. 



ERROR エラ 一番 母 



RESUME [ INEXT | 行 番号 | ] 



ERROR GOTO 100 

S 

ERR=02 THEN PRINT 
" 0 ノ アヤ マリ" 

ノ アヤ マソ 

No Resume In 100 
Ready 

行 番号 io は， もし エラーに 出会ったら， 付 a に 
あるよう な エラーメッセージ を 表示せ ず， エラ一 

処理 ルーチン である 行 番号 100 に 飛んで 行け， と 
いう 意味です. そして， 行 番号 100 にある ERR 
というの は， エラ一 力 ( 起こった とき， その エラ一 
番号が 入る 機能 を 持って います. 
この プログラム を 実行させる と， 行 番号 20 にわ 




けの わからぬ 命令 力 省いて あります ね. 当然 文法 
上の エラー （付 鋒より わかる ように， エラー コー 

ド 02 の Syntax Error になって いる） です. そ 
こ で， ERR =02 の 場合の IF 文が あ ります から， ブ 
ン ボウ ノ アヤ マリ と 表示して きます. 

しかも それに 統 いて， No Resume In 100 の 表 
示が 出ます. RESUME というの は， エラ一 処理 
が 終わった あと， どの 行 番号から 実行 を 再開 すれ 
ばよ いか を 示す 命令で， この あとに， 

(1) 行 番号 を 指定した とき は， その 行 番号から 
実行 を 再開し ます. 

(2) NEXT を 指定した とき は， エラ一 の 起きた 

文の 次から 実行 を 再開し ます. 

(3) 指定がない とき は， エラ一 の 起きた 文から 
実行 を 再 関します. 

という 機能 を 持って います. 

たとえば， 行 番号 100 の あとに： RESUME と 
人れ て やる と， エラーの 起きた 文から 実行 を 再開 
する ので， 繰り返し エラ一 処理 ル一 チンに 飛んで 
行き， ブ ンポゥ ノ アヤ マリ という 文字 を 無 

に 表示して くる はずです. したがって， ここで 
は RESUME の あとに NEXT, あるいは 30 と 入 
れて やる 必要が ある わけです. 
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一番 号 を 作って 付けて やる ことが 可能です. ここ 

では エラー 番号 を 101 に 選んで います. そして， 

行 番号 90 で ERR = 101 のとき は， ダメ デス と 
いう エラーメッセージ を 出す よ うにな つてい ます. 

また， 行 番号 70 では， わざと ERROR 102 力、' 
定義され ています. この エラー 番号に 対応す るェ 
ラ 一メッセージではありません. もし 何もない 場 
合に は， Unprintable Error と 表示され ますが， 
この場合に は ERL 変数と いうの が 用意され てお 
り， ERROR 文の 行 番号 力 < 代人され るた め， 行番 
リ100 で エラ一 テストと いう， エラ一 メッセージ 
が 出る ようになって います. 

そして， 同時に ERR は 102 という エラー 番号 
が 代入され ている はずです. 行 番号 95 に， もし 
ERR = 102 なら "XXX W と 表示す るよう な プロ 
グラム を 作って そう 人して， 试 してみ てくだ さい. 
なお ERL は. エラー 力 《 起こった 行 番号 力 《 代入 さ 
れる 変数です. 

10 ON ERROR GOTO 90 
20 C し S 
30 PRINT 

"1 カラ 5 マテ" ノ ス ゥシ" " ； 
40 I NPU T A 

50 IF (A<1)0R(A>5) 

THEN ERROR 101 
60 PRINT A 
70 ERROR 102 
80 END 

90 IF ERR=101 THEN PRINT 
"タ "メテ " 7、" s RESUME 30 

95 IF ERR=102 THEN PRINT 
••XXX" 

lOO IF ER し =70 THEN PRINT 
"エラー テス 卜'' s RESUME 80 

1 カラ 5 7 テ" ノ スゥシ "7 6 
ヲ" メテ • ス 

1 カラ 5 マテ" ノ ス ウジ" ？ A 
？ Redo From Start 
？ 5 

5 
XXX 

エラー テス 卜 



1 を 0 で 割る こと は 許されて いません. 行 番号 
30 で， もし X に 0 が 入って きたら， 本来なら エラ 
—コード 11 Division By Zero が 表示され てェ 

ラーになる ところです. ここで はこれ を 救うた め 
に， 行 番号 100 で エラー 処理 をし， 再度 イン ブッ 
トを 促し， エラーが 発生した 行， つまり 行 番号 30 
に 庚して います. 

10 ON ERROR GOTO 90 
20 C し S 
30 PRINT 

"1 カラ 5 マテ" ノ スケ: 广 •• ； 
40 INPUT A 
50 IF (A< 1 >OR (A>5) 

THEN ERROR 101 
60 PRINT A 
70 ERROR 102 
80 END 

90 IF ERR=101 THEN PRINT 
"タ" メテ" ス 'PRESUME 30 

1 00 IF ER し- 70 THEN PRINT 
"エラー テスト' PRESUME 80 



マテ" ノ スゥシ "7 6 
マテ" ノ スゥシ "7 9 

マテ" ノ スゥシ "7 4 
4 

エラ一 テス 卜 

ERROR は， 故意に エラ一 を 発生させる ときに 
使われる 命令で， エラ一 番号 （0〜255) を 定義す 
る ことができます. もし 付録の エラ一 メッセージ 
の 中に あれば， これ を 指定で きます し， なければ 
行 番号 50 にある ように， あなた 自身が 勝手に エラ 



10 ON ERROR GOTO 1 00 
20 INPUT X 
30 Y=l/X 
40 PRINT Y 
50 GOTO 20 

1 00 INPUT"0 イカ" ィ ノ カス" ラ ィレ 3 
； X： RESUME 



1 



ィ ノ カス" ラ ィレ 3 ？ 



5 ^ 5 ス 5 

ラ テ ラ テ ラ 

P メ カメ 力 

1 ヲ 1 ラ- 1 



N 2 5 o o o 力 1 

U ■ 1 ィ- 

R ？ r: つ： o 
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4.17 



10 X=RND( 1) 
20 Y=RND<0) 
30 PRINT X'，Y 

RUN 

. 5? 1 065 .591065 



10 FOR 1=1 TO 7 
20 A(I> =RND ( I ) 
30 PRINT A(I) 
40 NEXT I 
RUN 

.591065 

.207991 

， 550967 

.635863 

， 10411 

- 806334 

4.29073E-02 



RANDOMIZE, 




全く でたらめに 並んだ 数の こと を 乱数と いい ま 
す. 箱の 中に 0 から 9 までの 数 を 寄いた 礼 を 人れ 
てお き， よく かきまぜてから その 中の 1 枚 を， 中 
を のぞき 込んだり しないで 取り出します. その 数 
が 5 だった とします. 次に その 札 を 中に 戾し， 再 
びよく かきまぜてから 同じ 動作 を 操り 返します. 

このような 動作 を 何度も 跺り 返して 得た 数の 並 
び は， 全く 規 W 性の ない 乱数と なる でしよう. し 
かし， このような 数の 並び を コンピュータ を 使つ 
て 作り出 してやる こと は 困難な ので， 実用 上 この 
乱数と 同じ 結果 を 得る ように， 計算 式 を 使って 作 
り 出して います. 

乱数 は， ゲームな どで 規 M 性の ない 動き 方 を さ 

せる ときに 欠かせない ものです し， 実用 上の, 汁 W 

を するとき も 利用で きるな ど， コンピュータ 処理 

に はぜ ひ 欲しい 道具な のです. 

X=RND<1) 
PRINT X 
GOTO 10 

， 591065 
.207991 
， 550967 
， 635863 
. 10411 
， 806334 
4-29073E-02 

いつまでも， 小数点 を 含む 数字 を 表示して きま 
すが， 途中で 停止 させた ものです. 

1^^0(1)の（ ） 内 は 式で もよ く， ここが S 略 
されたり 正の 被で あれば， 上例と 同じ 系列の 乱数 
を 表示して きます し， もし 負の 值 であれば， また 
別の 系列の 乱数 を 表示して きます. さらに 0 であ 

れば， プログラムの 中で一 つ 前に 発生した 乱数と 
同じ 乱数 を 出します. 





10 X=RND(2> 
20 Y=RND(10) 
30 PRINT X, Y 
40 GOTO 10 
RUN 

， 59 1 065 

- 550967 

， 10411 

4.29073E-02 

.354289 



207991 
635863 
806334 
953862 
556498 



10 X=RND(-2> 
20 Y=RND(-10) 
30 PRINT X，Y 
40 GOTO 10 
RUN 

- 522223 

.522223 

.522223 



147223 
147223 
147223 



10 X=RND(-3) 
20 Y=RND<-20) 
30 PRINT X, Y 
40 GOTO 10 
RUN 

.772223 

• 772223 

- 772223 



. 14 フ Z23 
， 147223 
， 147223 
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表示して くる 乱数 力 f， 毎回 同じ もので あったら, 
乱数が 乱数に なりません ね. でも， 安心して くだ 
さい. 乱数の 系列 を 変更す る 命令 もちやん と 用意 

されて います. これ 力 < RANDOMIZE [式】 です. 

式 を 省略す ると， プログラムの 実行が 停止し， 
次の 表示が 行なわれます. 

RND Seed ( — 32768 — 32767) ？ 

つまり 式の 中 は， 一 32768 — 32767 の 範囲で なく 
て はならない わけです. そして， ( ) 内の 数 使が 
変わる たびに 違つ た 乱数の 系列が 選ばれる ことに 
なります. 

10 RANDOMIZE (5) 
20 X=RND(1> 
30 PRINT X 
40 GOTO 10 

RUN 
， 586623 
.803328 
.591215 
780675 

RANDOMIZE (-5) 
X=RND(1> 
PRINT X 
GOTO 10 

Ready 
RUN 

8.81791E-02 

- 304885 

9.66781E-02 

.278325 

また， RUN させる たびに 遠 つた 乱数 系列 を 得た 
いとき の 一"^ ^として， コンピュータに 内 * してい 
る 時計 を 利用す る 方法 もあります し. コンビ ユー 
タを 扱う 人の 名前 を イン アット させ， その ァスキ 
—コード を 使ったり， 生年月日 を 掛けたり， ある 
いは 生年月日 を アスキー コードで 割った 剰余 を 使 
つたり する 方法 も あ')， そこ は あなたの 腕 次第で 
す. 

ここで は， TIME を 使う 簡単な 方法 を 示して お 
きます. TIME は 1 日 24 時間です から， 0〜86399 
の 値になります （24X3600 — 1). これで は 式の 値 
を オーバ一 しています. そこで， TIMES のうち 
右から 2 桁 取り出し， これ を 式の ffi に 使おうと い 
うわけ です. これにより， RUN させる たびに 60 
種の 異なる 乱数 系列 を 得る ことができ ま す. 



10 RANDOMIZEWA しく RIGHTS 

<TIME*,2> ) ) 
20 X=RND ( 1 ) 
30 PRINT X 
40 GOTO 10 

RUN 
- 58055 
- 797255 
-88983 
.822102 
. 578837 



RUN 
， 390059 
5.27028E-02 
.442152 
, 33083 
. 38444 



餘版雜 咖方 M 



ズ' o 




のき^ "ぉ吖 卜 x 吖) >Y 



10 N=0 

20 INPUT I 

30 RANDOMIZE (I) 

40 FOR J=l TO I 

50 X=RND(1) :Y=RND(1) 

60 IF SQR(1-X*X) >Y THEN 

N=N+i 
70 NEXT J 
80 S=4 本 N/I 
90 PRINT S 
100 GOTO 10 

行 終 

10 - --&0TO 10 で 女^ S にも ど" つた^: 
N ち 0 に^き. 

20— まし 软も何 0微 させ 3 ゆ？ 

玄^ t さ tts. .. 

6o - 吆れ^ ^円^ に 入つ？ I' れは 
AJ に 1 を 加えさ. _ 

も ^1 きす S 乙 4M も 1 ^ fl^ 面祸 つぎ J 



0 o o o o 

1 2 3 4 



128 



4.18 



C し EAR [文字 領域の 大きさ] [， BASIC<7) 
使用す る 上 R の メモリ アドレス] 



FRE (整 数) 

FRE (文字列) 




全ての 数値 変数 を 0 に， また 全ての 文字 変数 を 
空 文字列に 初期設定 します. 



全ての 変数 をク リアす る 命令で あり， BASIC 
の 使用す る 文字 領域， BASIC の 使用 エリア を設 

定 できます. 
文字 領域と は， BASIC ブロ グラム を 実行す る 

とき， 文字列 を 取り扱う 場合の ワーク エリアの こ 
とで， 初期の 段 W では 300 に 設定され ています. 

4.8 ストリング 変数で， ジュ ゲムの 文字 の^さ 
を 出した とき， CLEAR400 としたの は， 文 卞铋 铋 

力 f たりな く なった ため， 文' r- 領 « を 広げて やった 

わけです ね. ただし， CLEAR 文 は プログラムの 
初めに 人れ てお かないと， 変数の 中身まで も 全て 
0 になって しまいます. 

もし， プログラム 突 行中に， Out of String 
Space という エラ一 表示 力 f 起きたら， このように 
し て 文字 領域 を 広げて やれば よいので す. 

また， BASIC と 機械語 類と をつ なげて 使用す 

る 場合， BASIC で 使用す る メモリ の 領域 を 小さ 

くして おき， メモリ の^? aw に 機械 ss のサ ブル 
一 チン を 害き 込んで 使用す る ことがあります. こ 

のとき に CLEAR 文 を 使って， BASIC の 使 ffl 領 
域 を 指定し ます. 

圏 FRE 

BASIC プログラムで 使用で きる メモリの バイ ト 
数 を 示します. 



大きな プログラムに なると， メモリが だんだん 
少なくな つてき て， あと どれく らいの メモリが 残 
つてい るか 気になって きます. そこで 残りの メモ 
リ が 何 バイ ト であるか を 調べる のが この 命令です. 

FRE (整数） で， BASIC で 使用で きる メモリ 




FRE (文字列） で 文字 領域の 残りの バイ ト数を 
示します. 



これらの コマンド は， ほとんど 直接 モードで 使 
用され ます. なお， ここでい う 整数 は， 整数で あ 
れば 何でもよ く， 文字列 も 同様に"" でく くった 
文字 を 入れれば よいので す. ここで は 整数に は 1, 
文字列に は "AT を 使って います. 

PRINT FRE<"A"》 

300 

文字列 エリアの 残り を 示して います. 

PRINT FRE(l) 
30502 

BASIC の プログラム 力、 まだ 30502 バイ ト分 
人る 余地が ある こと を 示して います. ただし， こ 
の 例の 数字 は メ モ リ の 使用 状憋に よ り 変わつ て き 
ます. 

じし EAR 400,^4000 
Ready 

PRINT FRE ( 1 ) 
14019 

ここで は 文字 領域の 大きさと 共に， BASIC の 
使用で きる 上限の メモリ アドレス を 指定し ました. 
そこで， BASIC プログラムの 人る 領域が ぐんと 
滅 つてい る ことに 注意して ください. 

次に 文字 領域 を 調べて みましょう. 上の コ マン 
ド によって 文字 領域 は 広 くな つてい る はずです. 

PRINT FRE ("A") 
400 

CLEAR 400. &H4000 により， 機械語の サブ 
ノ u~ チン を 4000 以上の アドレスに 寄き 込む ことが 
できます. なお 上限の アドレス は， BASIC のィ 
ン タブり タカ き 込まれて いる アドレス までです. 
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CSR し IN, 




m CSR し IN 

画面 上の 力一 ソルの 垂直 位 s を 与えます. 



CSR し IN 



画面 上の カー ソ ルの垂 直 位置 を 行 単位で 返 し て 
きます. 

圈 POS 

阑而 上の 力一 ソルの 水平 位 3E を 与えます. また 
後述のように， ファイル 番号が プリンタに 割り 当 
てられて いると き は， プリンタの ヘッドの 水平 位 

at を 与えます. 



POS (ファイル 番号 



ファイル 番号が 0 のとき は， 画面 上の 力一 ソル 

の 水平 位 s を 与えます. 



この プログラム 例で は， 画面の 10IT 目に パー ソ 

ナノ ^コンピュータ U と 表示し ます. そのと き 力 

― ソ ルは コンビ ユー タ ^ のす ぐ あと の 左 か ら 25 文 

字 目にあり ます. その 垂直， 水平の 位置 を A, B 

に 代人して 表示し ます. このように， 力一 ソルが ど 
の 位 にいる か を 見る と きに 利用す る わけです. 



m POINT 

指定した 位 it に ドットが 表示して いる 力'， いな 
いか を 与えます. 



POINT ： 水平 位置， 垂直 位置 



た 位 S に ドッ ト が表不 していれば 一 1, 
表示して いなければ 0 を 与えます. また 背^ 色 は 
0 となります. 

10 CO し OR 7,0 
20 C し S 

30 PSET <200， 100》 

40 PSET (400, 100) 

50 A=POINT<200, 100) 

60 B=POINT (201 , 100) 

70 C=P0INT(400, 100〉 

80 し OCATE 0, 13 

90 PRINT " (200， 100) " ; A 

100 PRINT n (201 „ 100) ";B 

110 PRINT " <400, 100) M ;C 



RUhi 



(200,100) 
I C20l f 100) 



(200, 100)— 1 
(201, 100) 0 
(400, 100> — 1 




(200,100)^^ 

201,1 oo)(ctt^y 



^ーゾ /し ウイ jtg 



(10,10) 



1 



iV 一 ソすル コン t e コーラ 



10 



25 



峰ク 



c し s 

し OCATE 10, J 
PRINT つ" 一、, 
A=CSR し IN 
B=POS<0) 
PRINT 
PRINT 
PRINT A,B 



ラ 

一 

0 

ル 

o T 



1 2 3 4 5 6 7 8 
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4.20 




10 CO し OR 2， フ 

20 C し G 

30 H=l: V=l 

40 FOR 1=0 TO 180 

50 IF H>4 OR CF=1 THEN H=H - • 1 : CF= IE し SE H=H+. 1 
60 IF V>4 OR CF=1 THEN V-V - • 1 = CF=1E し SE V=V+. 1 
70 P=INT<RND(1)*4) 

80 SYMBOLCX+SiUfY+I) , H A" , H, V, 2 5 P, PSET 
90 IF H<1 THEN CF=0 
100 IF V< 1 THEN CF=0 

110 SYMBO し （X+3 本 I ：« Y+I > ， " A" , H, V, 2, P ? PRESET 
120 NEXT 



A ヒ いう X 宫か" きし 数 (P) I: よつ 7 
ぐ' きぐ さ 0乾し« がラ, しかも 大きく 
ナぶ フたリ 小さくな， たリ します. 





^^ち A 会 肩 《のま まにし 2 あま. ハ-):' コひ 一き どつ さ タリ 




八の ffc^， 



V 桑渣^ ) り伟ゃ 
c? ホ 'で な ラ增ん 



CF は文宫 ち^きく 
レ2 いくか ノ I 、さくす^ 
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ノ スゥ 



0 REM BIT A° ラーン 
10 C し S 

20 PRINT "0 カラ 255 マテ 
30 INPUT A 
40 IF A<0 OR A 
50 IF 0=<A-128 
60 IF 0=<A-64 
70 IF 0=<A - 32 
80 IF 0=<A-16 
90 IF 0=<A-8 
100 IF 0=<A-4 
110 IF 0= く A - 2 
120 IF 0= く A - 1 
130 PRINT 

140 PRINT "DATA BIT 八 fl ラーン'' 
150 PRINT 

160 PRINT " D7 D6 D5 D4 D3 
170 PRINT B* 
180 END 

0 カラ 255 マテ w ノ スゥ 
？ 255 



it 



255 THEN 20 
THEN A=A-128 
THEN A=A-64 
THEN A=A-32 
THEN A=A-16 
丁 hiEhJ A=A-8 
THEN A=A-4 
THEN A=A-2 
THEN A=A-1 



=B*+ n 

:B*=B*+-" 
: B*=B*+ M 



1 " 


E し SE B*=B*+" 


0" 


1 " 


E し SE B*=B*+ M 


0" 


1" 


ELSE B*=B*+" 


0" 


1 " 


ELSE B*=B*+ M 


0" 


1" 


ELSE B*=B*+" 


0" 


1 


" ELSE B*=B*+" 


0" 


1 


•' E し SE B*=B* + " 


0" 


1 


" ELSE B$=B*+ M 


0" 



D2 Dl DO" 



DATA BIT '"ターン 

D7 D6 D5 D4 D3 D2 
111111 

O カラ 255 マテ" ノ スゥ 
？ 82 



Dl DO 
1 1 



o ヌ 



ふ 255" までの^^ そ 

^kCD^ Vi f …-' L 
す フ。0 アラ 4 で'？， 
) 了^ tfe き^らつ 



'c 



ま , ' つお 



ノ つ 



みま マ.^ して 弓! 

つた ラ o を izi> ゥ マ' 



DATA BIT 



'• ヲ一ン 



D7 D6 D5 D4 D3 D2 Dl DO 
O 10 10 0 1 O 



II 



0 REM BIT »、 e ラーン 
10 C し S 

20 PRINT "O カラ 255 マテ、' ノ スゥ 
30 INPUT A 
40 IF A<0 OR A>255 THEN 20 
50 FOR 1=7 TO O STEP - 1 

60 IF 0=<A—2'、I THEN A=A-2^I : B*=B*+" 
70 NEXT 
80 PRINT 

90 PRINT "DATA BIT ,* ^ラーン'' 
100 PRINT 

1 10 PRINT " D7 D6 D5 D4 D3 D2 Dl DO" 
120 PRINT B* 
1 30 END 



^じせ 蓽 も下ゥ 

フ° ロワ" ラ 厶でも 
やつ マ くれ お： 




1" E し SE B*=B$+" O" 
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ノ シコ" 卜シ" カン 八 



II 墨 



'リウ 千ン シ" カン A 



ス ィ= ン シ" カン ，、 "； 



C し S 

し OCATE 2,7 
PRINT "アナ ラ 
INPUT II 
し OCATE 2,9 
PRINT "アナ ヲ ノ 
INPUT 12 
し OCATE 2, 11 
PRINT "7" ノ 
100 INPUT 13 

110 IF (11+12+13) >24 THEN 10 
120 C し SsCO し OR 4,0 
1 30 PR I NTS) ( 240 ,0) 5 S<H2422 , 8<H2 1 20 , 8<H244A ， ^ 
H2 1 20 , 8<H243F , S《H2 1 20 ， S<H244E ， S<H2 1 20 , 8<H2332 
， 3<H2 1 20 ， S<H2334 ， ?.H2 1 20 , S<H3B7E ， Z<H2 120, 8<H34 
56 

140 CO し OR 10,0 

150 PRINT9<8, 120) , ?<H2120, S<H2120 
160 CO し OR 2 

170 PRINTS) (48， 12C>) ? ^HSBAS, 5<H212G, ?<H3B76 
180 CO し OR 14,0 

1 90 PR I NTS <8, 138) , S<H2 1 20 ， 1 20 
200 CO し OR 6„6 

210 PRINT3<48, 138) ? 8-:H444C, ?<H2120„ S<H3650 
220 CO し OR 12， 0 

230 PRINTS) (8， 156) , 3<H2120, S<H2120 
240 CO し OFt 4,0 

250 PR I NTS) (48, 156) ：, 3<H3F67 , S<H2 1 20 , 8<H4C32 
260 CO し OR 13,0 

270 PRINTS)(8, 174) ,8<H2120,S<H2120 
280 CO し OR 5,0 

290 PRINTS (48， 174) , 3<H243D, S<H244E, S<H423E 

300 A0=0 
310 Al=Il/24 
320 A2=Al+I2/24 
330 A3=A2+I3/24 

340 CIRCLE (380, 110) 9 190,2,-4495^0^1 
,F 

350 CIRC し E (380, 110) ；, 190,6, . 4495, Al , A2 
,F,PSET 

360 CIRCLE <380, 110) „ 190,4, .4495,^2^3 
,F,PSET 

370 CIRCLE <380, 110) 5 190,5, . 4495, A3, 1 , F 

,PSET 
380 CO し OR 7,0 
390 END 



RUN にレ J おな ナカ —fl つせ 争!^ 間 

, tt ' ， ^ま 

す.^ こ も: Mt マ や 化. 

― 324 せ 戸 まの ィ 吏め 札^^ 比 牵: 

を きれ u な カラ-円が ク" ラフ" r く 

、し 7 く ォ. 表, t. えま' お！ 容ノ 

、まじ') の 0 未 f ま？" す. パ 




多 H2I20 はス やス. 
litiAim color 10,0 

の^ > に ヾ―ス の g 玄^^ 

し Hi の? "ぶリ2/20 り 



もつ に 扛、く 销 

ほおと も紗: 
で もれ やつ W 

く ぜ まな 



嫁 剩 間 




o o o o o o o o o 

1 2 3 4 5 6 7 8 9 



4 ケヲ マテ" 


ノ 


スゥ シ" 


ラ 


ィレ テフ ヲ" サイ 


？ 


12 


4 ケヲ マテ" 




ス ゥシ" 


ラ 


ィレテ クラ" サイ 




55 


4 ケヲ マテ" 


ノ 


it 1 


ラ 


ィレテ クラ" サイ 


7 


-56 


4 クラ マテ" 


ノ 


ス クシ" 


ラ 


ィレ テク 9" サイ 


ゥ 


8 


4 ケヲ マテ" 


ノ 


スゥ シ" 


ラ 


ィレ テク 9" サイ 


？ 


0- 123 


4 ケタ マテ" 


ノ 


ス ゥシ" 


ラ 


イレテ クラ" サイ 


ヮ 


d 


4 ケヲ 7 テ" 


ノ 




ラ 


ィ レ テフ ヲ' サイ 


つ 


9999 



二 ユウ リ 3 フス ゥ 6 

TOTAL- 25. 123 
MAX= 55 
MIN=-56 
、イチ ン= 4. 18717 




REM 7.0 ノ 八. イチ ン IT' ゥ ウイ 
C し S 

N=9999:M=-9999 
PRINT "4 ケヲ マテ" ノ ス ゥシ" 
INPUT A 

IF A=9999THEN 110 

C=C+1 

T=T+A 

IF M<A THEN M=A 

IF N>A THEN N=A 
0 GOTO 30 
0 PRINT 

0 PRINT " 二： ！ゥリ 3 ヮ スゥ' '； C 

TOTA し ="sT 
MAX=" ;M 
MIN=";N 



ラ ィレテ クラ" サ ィ " ； 



O PRINT 

0 PRINT 

0 PRINT 

0 PRINT 



it 



II 



rr 




？ 3<H ^二ん 



合 i+，t え^、, 平均 俊 
を まあ 57。D ダラー 

q ラマヨ を INJf^T ず》 乙 

じに T 丄に 表巿 し マ くれお' 



ひ REM スゥヒ ヨウ) <， X 本 X, X*X#X，SQR<X) 
10 C し S 

20 PRINT " X X*X X*X*X SQR(X> " 

30 FOR 1=1 TO 20 

40 PRINT USING ； I ； 

50 PRINT USING '• ##tt M ; 1*1; 

60 PRINT USING " 1*1*1; 

70 PRINT USING " #.###"; SQR < I ) 



> NEXT 
90 GOTO 90 



PRINT DSI ま樣 
ォ- マ"//" ももれ い / 



つ 



x*x*x 


SQR < X ) 


1 


1 • OOO 


8 


1.414 


27 


1.732 


64 


2.000 


125 


2^236 


216 


2.449 


343 


2.646 


512 


2.328 


729 


3.000 


1 000 


3， 162 


1331 


3. 317 


m 


3.464 


2197 


3 . 606 


2744 


3.742 


in 
r つ 


3， 873 


4096 


4 . 000 


4913 


4. 123 


5832 


4.243 


6859 


4.359 


8000 


4.472 



厶るフ。^ ァラ厶 ク^'〃 ^ y^L] 



c o c o o c o 0 0 0-12 3 45/0 

o- 1 0^ 3 4 5 6 7 8 9 I 1 1 1 1 1 1 



X1496 5 60/41 0 1496 5 69410 

* 1 2 3 4 6 8 o- 0^ 4 A- 9 2 5 00 2 6 o 

X 111112 2 2 3 3 4 



X 1 2 3 4 5 6 7 8 9 0 12 3 4 5 6 7 8 9 0 

11111111112 
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1+2+3+4+5+6+7+8+9+10= 55 



1*5= 5 



5*55= '215 



10+ 100 拿 200= 22000 



10/3= 3. 333333333333333 



8+4-5*10/5= 14 





〇 



/ 



お 本 まけ 



〔10 寸 100)^00 

、どなる ので'^ 



IE い") り 

O 木 加- 22000 



220O0 




コュ ビュ— ク^ ^ 
向し' 1 よ 5 な^ リ^て 
どい クを^ フ 

キーズ、 S ゥ入ゥ は 
ぉリ太 ヒ 

+ , ―, 木，/ ^ 

3 た 料 14 辈し チす紹 I 

は-や 一 ウ^ー インに お'〕 
もホ し マい ます. 

im% 知 は. w 係の な い 
千— ィニづ 、'、あつ ちご 乏^ fen 
化ー えつで さ 




REM テ" ンヲ ク 

A*=INKEY* 
IF A*=" " THEN 20 

IF (ASC(A*)<42) OR ( ASC (A$) >57) XOR ( A*= 
PRINT A*; 

IF A*= n + M THEN GOSUB 130: CC=0: GOTO 20 
IF A*="-" THEN GOSUB 130: CC=1 : GOTO 20 
IF A*="#" THEN GOSUB 130: CC=2: GOTO 20 
IF A*=' , / M THEN GOSUB 130: CC=3: GOTO 20 
0 IF A*="=" THEN G0SUB130:G0T0 190 

120 GOTO 20 

130 IF CC=0 THEN B$=STR$ ( VA し <B$) +VA し （C$〉 〉 

140 IF CC=1 THEN B$«=STR$ ( VA し （B»〉 一 VA し （C$ ) 〉 

150 IF CC=2 THEN B$=STR$ ( VA し （B$) 本 し （C$〉 〉 

160 IF CC=3 THEN B$=STR$ (VA し （B$〉 /VA し <C»〉 〉 

170 C*=" " 

180 RETURN 

190 PRINT B* 

200 C*="":B*=" M :CC=0 

210 PRINT 

220 GOTO 20 



="> THEN 20 



o o o o o o o o o c- 1* 

o 12 3 4 5 6 7 8 9 11 



0 REM チ 3 フ t ン ノ カイ テン 
10 C し S 
20 A=90 

30 FOR C=l TO 7 

40 FOR R=0 TO 360 STEP 2 

50 X=320+210*C0S< <I*A+R) *3， 14159/180) 

60 Y=90+90*SIN( <I*A+R> *3. 14159/180) 

70 し INE5)<320,90> — （X， Y〉 ,PSET,C 

80 NEXT R,C 



0 REM Gi' ホウ ウイ ノ 力 1' テン 
10 CLS 
20 A=90 

30 FOR C=l TO 7 

40 FOR R=0 TQ 360 STEP 8 

50 FOR 1=0 TO 3 

60 X ( 1 ) =320+2 10*C0S( < I*A+R) 本 3， 14159/180) 
70 Y (I)=90+90*SIN< ( I*A+R) *3. 14159/180) 
80 NEXT I 

90 CONNECT ( X (0) , Y < 0) > - < X < 1 ) , Y ( 1 ) ) - ( X (2) 
, Y (2) )-<X (3) , Y(3) >-<X (0) , Y(0> > ,C,PSET 
1 OV NEX1 R, じ 



REM ウス "マキ 

：> C し S 

：> FOR C=0 TO 6 

：> FOR R=0 TO 360 

D X=320+(C*36+R/10) *C0S(R*3. 14159/180) 

) Y=99"MC"2+R/30>*:SIN(R»3， 14159/180) 

D PSET <X，Y ，フ） 

:> NEXT R,C 



o 1 2 3 4 5 6 7 



ウス' マ 午の 7。 ログ ラ 《A 

リで' す r ズ テツ ァ。 ご どピ 

pSE 丁に Sr マ 7。a'7 に？ 
i)t ます ス亍 フ 。^^も 



つ 乙' I' さく 才るビ も B チぃ 





化ィ i ゥケィ ！ カイ， ン 、 

ききち》、、 お 

で STOP さゼ ハーに コビ; ： 

： した 乞ので す， 厂 




D1V VERSION 

How man^ dis レ dr i v«s 

Mow m*r^ d ISb * J I#* * 0- 1^ • "> 

FUJI TSu r-BASIC version 3.8 

二 op ダ 19" ' 1981 PU J I TSU M レ WiLP に 

25^75 Byt" rr* e 

ま 



入出力 装 i 



^稀の 人出 力 装お との や リ取リ について， その 

基本的な 命令 を 述べて あります. 人出 力 装 31 から 
の 銃み 出し ゃ辨き 込み は， 私たちが ^通の フ アイ 
ルを 開いて 统ん だり， 書き込んだ りする 操作と よ 
く 似て います. この 人 門 害で， ファイルの 全て を 
説明し つくす こと は W 雜な ため， ここに 示した 《 
本 的な 考え方 を埤 解して いただき， よ リ^ 度な 利 



用への 基礎に し 



ただき たいと 思います. 



5.1 



OPEN, CLOSE 



FM シリーズ では， 全ての 人出 力 装 SE をフ アイ 
ル という 概念で 扱って いる こと は， すでに if ベた 
とおりです. ひと 口 に 人出 力 装 ffi といっても， い 

ろい ろな 楝 Si の ものが あります 力、 これらの ファ 
ィル に対して， プログラムの 処 ffl 結 * を 書き込ん 
だリ， あるいは 说み 出したり するとき は， フ アイ 
ル 番号 を 決め. これによ つて 実行され ます。 
ファイル 番号と いうの は， ファイル ディスクり 

ブタ に対して 割り当てられた 番号で， 次の OPEN 
文に よって' ぷ おされる わけです. 

なお. ファイル ディスクリプタに ついては， 2.14 
を 参照して ください. 



OPEN" モード"， 〔#〕 ファイル 番号， 



OPEN は， ファイルの オーブン 処理 を 実行し ま 
す. すなわち ファイル ディスクリプタで 示される 
機器との データの 入出力 方法 を^^し ます. 
OPEN 文で 定^した あと は， ファイル 番号で 呼び 

出し， 入出力 を 可能に します. 

つまり， INPUT « PRINT #, LINE INPUT 
#, PRINT USING ft, GET, PUT により， フ 
アイ ルの 入出力 を 実行す る 場合 は， その 前にまず 



フロッピィ ディスク を 利用す る 場合の CRT 表示 

(DISK モ一 ド） 



How many disk drives (1—4) ？ 

と 表示が 出る. そこで ドライブ 数 を 入れ 

IRETURNI を 押す. もう ，度 IRETURN l する 
と D ほ K モードになる. 



ァ 



OPEN 文 を 実行し なくて はならない のです. 

ゥ トブッ ト する のか を 指定し ます. 

I ( イン プッ ト）： シ 一- 

インプット を 実行し ます. 
0( アウト ブッ ト）： シ一 ケンシ 

アウト ブッ トを 実行し ます. 
A (ァ ペン ド） ： シーケンシャル ファ ィ ルにデ 

の 追加 をし ます. 
R (ランダム） ： ランダム ファイルへの 入出力 を 実 

行し ます. 

なお ファイル 番号 は， 1 から 16 まて 定で きま 
す. 

OPEN "O つ #1 にし PTOs " 
PRINT #1, "ABCDEFG" 

ブリ ンタに 文字 を 印字す る 場合の OPEN 文で 

す. # 1 は プリンタ に対する アウトプットと 定義 

した 上で， PRINT #1 で 印刷し 出す ようにして 

います. なお PRINT # は 次の 章 を 参照して くだ 

さい. 

ファイルに 纣 して 统み 害き が 完了したら， きち 
んと 表紙 を 閉じて おかなくて はなり ません. これ 
が CLOSE 処理です. 
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CLOSE[[#] ファイル 番号 
[#] ファイル 番母] …… 



INPUTS 文 や PRINTS などで 人出 力の 処理 

をした あと， その 仕事が 完了したら 必ず CLOSE 

ださい. ここで， もし ファイル S 
ない CLOSE 文 を 実行す ると， オーブンして 
いる ファイル 全て を クローズして しまう ことにな 
ります. なお， END 文に よっても， 自動的に 全 

ローズ されます. 





opew 





5.2 




フロッピィ ディスク や， バブル カセット など は， 
たく さんの データ や プログラム を 記録で きる ので, 
いったい どんな プログラム や データが 記録され て 
いるの かお ぼえ きれず， また 中 を 見たくて も 人間 
の 目で は昆 えません. そこで， どんな ものが 入つ 

ている かの 目録 を， CRT や ブリン タに 表示 させ 
る 方法が あります. これが FILES という コ マン 
ド です. 



FILES ["デバイス 名"] [，し] 



"デバ ィ ス 名-は ファ ィ ルディ スクリ ブタの デバ 
イス 名で， を 指定 すれば， 同時に プリンタ 
にも 出力され ます. 

FILES では， ファイルの 名前 だけで はなく， 
« 類， 形式， 編成， サイズな ど を 表示して くれ ま 
す. なお サイズ は， その ファイルの 占める 大きさ 
を 表わし， バブル カセットの 場合 は ページ 数で， 
フロッピィ ディ スクの 場合 は 2 K バイ トを 1 とす 
る クラスタ 数で 示されます. なお， カセット テー 
ブの 場合 は， ファイル 名と M.Ifi だけが 表示され， 
サイ ズは 出ません. 

フロッピィ ディ ス クのデ バイ ス 1 に 人って いる 
ディスケットに， どんな 神. Hi の プログラムが 人つ 
ている か を 調べて みましょう. それに は FILES 
"1：" と 入れて やれば よいので す. もし デバイス 
0 に 人って いる ディ ス ケット であれば, 舉に FILES 
だけで ファイル ディスクリプタ を 省略しても かま 
いません. 

こ^ V7"cM ). 





F ゝ 1 、-や 



0 B£ 1 
0 BS 1 
O B£ 1 




ダバ イス 0 



子 M ス 1 
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FI し Wis" 



F3. 13 — 1 



0 B S 1 



151 Clusters Fn 



こよる と フリーサ イス' は, 



クラスタ， 



つま り この ディ スケッ トは まだ 302K バイ トの余 

裕が ある こと を 示して います. 

ここで ファイル 名 は SAVE, OPEN で 指定し 
た ファイルネーム （8 字 以内） です. 種類 は 0 な 
ら BASIC の プログラム， 1 なら データの フ アイ 
ル， 2 なら 機械 踣 の プログラムです. 形式 は， A 



F3./3 



フ？ ィ / レ A 
種 ^- 




0 ― &A5iC7 o a ゲラ 

1 …チ '匚タ フゅレ 

2 —蝶 我 躲 7'£7 アラ^! 
f ノ 氏 

A 7 ス 午- コ 一に 

B ― 八 マチ リゴー ド' 

編 成 

S -…' シーケ 二 シャ/ レ々 ィ/ レ 
R •• ランク" A フ p イノ レ 

サ イス' 



なら アスキー コードの ファイル， B なら バイナリ 
コードの ファイル である こと を 示します. ここで 

は バイナリ コードです. 編成 は S なら シ一 ケンシ 
ャル ファイル， R は ランダム ファイルです. 

そして サイズ は， プログラム や データの 大きさ 
を 示して います. ここで は 試しに. とても 簡単な 
ブロ グラム を 人れ てみ たため， 1 クラスタ しか 使 
つてい ません. また， この BASIC プログラムが 

^ しか 入って いません 力、 もっとた くさん 人つ 
ていたら， このような 表が 次々 に 表示され てく る 
はずです. 



0 B S 1 



ワラス ダ^: 



ア 0 名 ボ^く さん 入つ ？ ' ぽ. 
ス 7 a -/し し？ f/z: 3 介 ま や' や, 匕 ま 

は, 國キ— な才 甲し ヱ 一 《？ すち^^ 

てャ in ば， いいお 




+ 一玄 
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5.3 




ファイル s 号で 指定され た ファイルに， 指定 さ 

れた 内容 を アウト ブッ ト する 命令が PRINT #〜 
です. 簡単 ですから さっそく プログラム 例 を^べ 
る ことにしましょう. ただし， アウトプット 結 * 

は， この 本の サイズ 上の 問! a から， 突 際の ブリン 
ト アウトと は， レイアウトが 少し 違って います. 




プリンタ 



10 OPElNTO'Sttl-'tPTOs" 
20 PRINT ttl, "iV*— ソ: HI; 3^t° 

ユーラ フ 0 リン 卜 ァゥ卜 フ 0 a ヮ" ラム" 

30 FOR 1=32 TO 247 
40 PRINT #1,CHR*<I) ； 
50 NEXT I 
60 PRINT #1 
70 C し OSE #1 



ア ロア プ厶 のァヮ トフ。 ツト^ 果 

| に- ノ I ル J ン 3 - ラ フ* りント 7 ゥト フ •£) ヮ' ラム 

1 " <> 窜+ , /':，12 ご '456789s s く s5?5)ABCDEFGH1JK し MNOPURSriJVWXVZt*;! 

r .grc:t..vw>:vrft>-... 纏 I IHi»^-H h'-i In ^ . 、り • r, s • ラ マイ,： オり 3 ，-ん<ゥ1 ォ カゃク ケコサ ジス t! 巧 

リチ t 卞 ニフ 3 ノ i、t フ' VT, マ = , ムメ t ャ 33 ラ V* "い CT, ン' * = «^ 鲁 




行 * り- 10 で， プリ ンタ 出力 を ファイル 番サ 》 1 
に 指定して います. そして， 行 番号 20, 40 の 
PRINT » 1 で 文字列 を プリンタ で^ き 出 してき 



, ユーラ 



ます. CHR$(I) は， キャラクタ コード I の 文 
字 を 示す こと は， すでに ご存知のと おりです. 



こり^^ レイ 7' クん' ： 合め 

ゼ 7 フっン ^ゥ にも げ4 しば 
t の おうに i れは" 1) りんた'' 



10 GPEN M 0 ,, !I #1 ! , "し PTOs " 
20 PRINT ttl, ".'V— ソナル 3yt 
30 PRINT 特丄，，，フ。 リン 卜 ァゥ卜 フ 0 ロワ'、 ラム" 
40 PRINT #1 
50 FOR 1=32 TO 247 
60 FOR J=l TO 7 

70 IF 1=32+28 木 J THEN PRINTtti 
80 NEXT J 

90 PRINT ttl,CHR*(I); 
i 00 NEXT I 
110 PRINT #1 
120 CLOSE #1 



―、 
フ 。 リント 



コ： yt e ュ ータ 
ァゥ卜 フ "D^ 



！ "#*"/.?< ? < > 傘 + ，一， /0123456789： ； 
< = >?<DABCDEFGH I し MNOPQRSTUVW 
XYZ[¥]'、 "'abcde-f ghi jklmnopqrs 
tuvwxyz i \ Z ^ _ ^^mmm I I 



J 广， 一 o ' J , ■ 

ャュョ 'リ 一 7 ィゥ I ォカ 牛ヮケ コサ シス t ソヲチ 'リテ b ナ 二??. 
ネノ At フ' ヽホ マ= ム メモ ャ ュ3 ラリ ルレ ロフ：： パ' ° = ra 
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PRINT # ファイル 番^ [，出力なら び] 



PRINT # ファイル 番号， USING 
フォー マツ ト 文字列； 出力なら び 

ファイル 番号 は， 前 i£ の OPEN 文に よって そ 
の ファイル を， 出力 モード "0" または 一に で 
オーブン している ファイルに， データ を アウト ブ 
ット します. 前 if の プログラム 例で は プリンタで 
した. 

ここで， 出力なら びと いうの は， その 佑が ファ 
ィルに 書き込まれる 数 傲 式 または 文字 式の ことで 
す. 出力なら びが 二つ 以上 あるとき は， その 間 を 



セミ コロン または コンマで 区切って ください. 文 

字 列の 例で いうと， セミコロンの 場合 は 校け て， 
また コンマの 場合 は 9 文字 S いて ブリン ト アウト 

されます. 

文字 データ を ブリント アウト するとき は， その 
直後に 区切り 記号と して， コンマ を 出力す るよう 
にします. そうでな いと， 文字 データが 絞いて 出 
力した とき. それらの データ は 速 枝した 文字列と 
して 出力され るた めに， 後述の INPUT 文で は一 
つの 文字 データと して^み 込んで しまいます. な 
お. "を 書き込む 場合 は， CHR $(34) を 使用し ま 
す. 

PRINT #フ アイ ル 番号， USING 〜について 
は， PRINT USING 文 （4.14) を 参照して くだ 
さい. 



じし EPiP 400 

シ "ユウ" ムシ" ュケ "厶" 
A*=A$+ n D" コゥ ノス ジ チレ" 

A$=A$+"Tl イシ" ャ リス ィキ" 3 ノス. 1チ" 3 クマ' リウ ン ライマ' リフゥ ライマ 'リ" 

ワウ ネル 卜 ua ニス 厶卜コ a ャフ" ラコ ウジ" ,ァ ラ:] ゥシ" " 

a*»a*+",、* ィ ,、• w ，、• ィ *• ノシ 3 — リン だ ンシ ユーリン 力" ン ノヮ" 一 y ンタ" ィ " 

A*=A*+ M ?" —リン ヲ" イノす, ンホ e コ ーノホ e ンホ 1 » コ: r 一" 

ノ チョウ キコ ウメ イノ チョウ スケ" 
0PEN"0",#1, " し PTO: " 
PRINTttl, し EFT$ < A 仁: 50> 
PRINTttl „ MID* (A$， 51 ，50》 
PRINT#1 , MID*<A*, 101,50) 
PRINT#1,MID*(A*, 151) 
C し 0SE#1 

ケ" LV" W 乙コ" コゥ ノス 1 ノ中レ 力 イシ "ャ リス ィ 千" 3 ノス ィキ" 3 ゥマ' リウ ン ライ マツ フゥラ 
イマ 'リク ゥネル 卜 =!□ ニス 厶卜コ □ ャフ" ラコ ウジ" メァ ラコ ウジ" A° 1 ^° \Y .1 ホ tt \Y ィホ 1 * ノシュ 

一 リン 力" シ 】 一 リンカ" ン ノフ" 一 リン ヲ" イク" 一 リン ヲ" イノす, ：/^° コ t° ーノホ a ンホ Q コ: T 一 

ノ チョウ や:! ウメ イノ チョウ スケ 



10 REM ** ェン ノ ノン t チ ケ ィ サン ** 

20 INPUT "Al/TY ラ ィレ 3 ";R 

30 S=R*R*3. 14159 

40 0PEN"C3 'ヽ ttl， "し PTOs " 

50 闩只11\1丁"八ンケィ"；？^"ノ メン t! チ ";S 

60 PRINT+H, "A ンケ イ"； " ノ メ： /t:1= " ;S 

70 CLOSE #1 

80 PRINT 

90 GOTO 20 

> 、ン サイ 50 ノ メン tr 中 7853.98 
A ン クイ 3 ノ メジ t! チ 28-2743 
t)y74 83 ノ メン t や 21642-4 



o o o o C 

1 0^ 3 4 5 6 7 8 9 1 1 1 1 1 



-國 ！ 
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m 1 日 i 割の 利子 

お 正月に， 電話 を かける ため 10 円 借りました. 
そしてよ せば いいのに， おとそ 気分で 1 日 1 割の 
利息 を 付ける ことにし たのです. もちろん 複利で 

す. 60 日 後， ふと そのこと を 思い出し， 計算して 

みる ことにしました. 

お 正月が 10 円， 1 日 目が 11 円， 2 日 目 力 《12.1 
円 …… ■ この辺まで はわ かります が， これが 60 回 
枝く とどうな るでしょう. 1 曰 経過す る ごとに， 

小数点 以下が 1 桁ず つ ふえてい く 計算になる はず 
ですから， 小数点 以下が 59 桁になる の は 間違い あ 

り ません ね. 次に 小数点 以上 は 10X1. 1« です か 

ら， «* を 使っても ほぼ 3044. …… となり， 4 桁 

になる こと ははつ きりして います. でも 正確な 敏 

になる と， もちろん ほ Mffi^ &を 使っても 追いつ 

き ません. 

こんなと き 便 利な のが rtti 列 変数です. 1 桁 1 変 

数と し， この 変数の W (が 10 以上に なったら， 1 桁 

上の 変数に 1 をた してやる 考え方です. 

また， するとい うこと は， を 1 桁 分 

ずらして や')， 加 W する ことになります. この ft 

理を する 行で， 変数 CY を 使って います 力 ( ， この 
ような 使い方 を キヤ リーフ ラグと いいます. 10 を 
超えれば， 八（』）に1を加ぇ， 超えなければ 0 を 

加える ことになる わけです. 

^« は， プリンタ でも 印刷し 出して みましょう. 
この プログラムの^ 細 は， 特に 说 明の 必要 はあり 

ません ね. 

3044 , 8 1 63954 1 4 1 8099574449295 
4760100 

これ を RUN させる と， ちょっと i 寅算に 時間が 
かかります. 結果が 出 るまで しばらく 待って くだ 

さい. 



10 DEFINT A-Z 
DIM A<66) 
A<63》=1 ぶ 62〉=0 
FOR 1=1 TO 60 
FOR J=l TO 65 
A<J)=A(J)+A(J+1)+CY 
IF A(J) >=10 THEN CY=1: 
A<J)=A(J)-10 ELSE CY=0 
NEXT J 
90 NEXT I 

1 00 REM ゥ 1' サン ゥ' v 力 PRINT OUT 
110 OPEN "0"，#1 パ' し PTOs " 
120 FOR 1=65 TO 1 STEP - 1 
130 PRINT USING "#"； A(I> ； 
140 PRINT#1,USING"#"; A(I) ; 
150 IF 1=62 THEN PRINT".";: 

PRINT#1 5 M . " ； ： 
160 NEXT I 

170 PRINT 
180 PRINTttl 
190 END 

^% GO …- J ざ、"^' け^) AO) も 

TJ3T ^1337 
才ラ f 70 …一 AO) ォ、^ ナ^: になつ 
^ だう び^にね. 《し 

1 けたに^ ャる. 



o o o o o o o 

2 3 4 5 6 7 8 
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INPUT# 




ファイルから データ を み 込み， 変数に 代入し 
ます. 



INPUT # 

ファイル 番号， 変数 名 し 変数 名] 



LINE INPUT # 
ファイル 番号， 文字 変数 

OPEN 文で， モー ドが " I " で オーブン してい 
る ファイルから データ を^み 取ります. 変& は， 
统み 取った データ を格枘 してお く 入れ物です. し 
たがって 统み 取る データと 変数 名の^ は， 当然- 
致して いなくて はなり ません. データの 区切りに 
は 次の 文字が 使えます. 
数攸の 場合： 空白， コンマ， コロン， CR， LF 
文字列の 場合： コンマ， コロン， CR, LF 
なお 文卞 列の 埸介. データの 砭 初が "ならば， 
次の'' までが 铣 み 込まれる 文 宇 データです. した 
がって， INPUT # 〜の 場合， "で 囲まれた 文字 



ADZZNI" ハ〃 " た 千' し ク' , pA'Nir#7,: 八に ソ カレ ク 

OrtN U i^h /• 7 -7 j>nwi 許ザコ ン ヒ 0 ユー タク 







/ター ソナ /レビコ；^ tt- タ 
ク 、"テ^^レ 乙； urt ぞ, 



0 



CLOSED 1 

1NP 華 1 お npW' T "J^ や ギ、 な 

w?um^ 0PBN ん #/ ク 7 ^ 







入^ お 



n 



CLOSED 



判 は "を 文' i: として^む こと はでき ません. 

LINE INPUTS 文の 場合 は， CR コードまで を 

文字 変数に 统み 込みます. ^み 込める 文卞敉 は 
大 255 文字です. 

では， 荚 際の プログラム を 調べて みましょう. 
まず フロッピィ ディ スクに データ を » き 込んで お 
かなくて はなり ません. それに はまず "0" で 
OPEN する 必要が ぁリ ます. 次に， パーソナルと 
コンピュータと 害き 込んで みまし よ う. 

REM PRINT# 
C し S 

OPEN "CT'^ttl, "1= テ"一 ヲ'' 
PRINT すル" 
PRINT ttl, ' '八 a — ソ: n し'' 
PRINT ' 'コン t e ユー ヲ" 
PRINT #1 5 "：3ンヒ "ユーラ'' 
C し OSE #1 
END 

これ を RUN させる と. ドライブ 1 のん-の フロ 

ツビ ィ ディスクに， ファイル 名 データと いう 二つ 

の 文字列 からなる データ かおき 込まれた わけです. 
あと は NEW により， この プログラム を 忘れさせ 

て も かまいません. もしい つまで も プログラム を 
紀録 してお きたかったら， SAVE "1: データ" な 
どに よ リ， SAVE してお いてく ださい. 



) o o o c c c o o 

0-1234 5678 
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では， 今度 は コンピュータの 方に この データ を 
説み 取る こ とに しましょう. 二つの 文字列の 変数 

を A$， B$ とします. 
10 C し S 

20 OPEN M I",#1, "1st" —ヲ" 

30 INPUT#1, A* 

40 PRINT A* 

50 INPUT#1,B* 

60 PRINT Bt 

70 C し OSE #1 

80 END 

今度 は， 行 番号 20 で モード'' I " とし， OPEN 

しなくて はなり ません. 

行 番号 30 で， A $ の ファイルに 記録され ている 
先頭の データが， 行 S 号 50 で B$ に 次の データが 
人力され ます. そして 同時に， 行 番号 40,60 によ 
り CRT 上に も A $, B$ の 内容が 表示され て 出 
てく る はずです. 

ここで は， ごく 簡単な 例 を 述べました が， もち 
ろん このよう にして 说 み 出した データ を， 今まで 
i£ ベて きたよ うないろ いろな 加工 処理に よって 手 

を 加え， ifi つた ものに 仕立て上げる こと も， さら 
に OPEN "0", #2, "LPT0 ： " によって プリ 

ント アウト してやる こと も， それ は あなたの 自由 
という わけです. 

A° ーソ すル 
コンピュータ 

では 別の 例と して， ftf め: 変&の * 合を调 ベて み 

ましょう. ぉ列変数乂（1)〜乂（5)に1, 2, 3. 

4. 5 の を 2 倍した 数侬を 代人し. スゥチ とい 

う 名前の ファイルに 3i!» します. 

10 C し S 

20 DIM X (5) 

30 OPEN "0",#1, "Is スゥチ " 

40 FOR 1=1 TO 5 - 

50 Y=I*2: X (I)=Y 

60 PRINT#1,X(I) 

70 NEXT I 

80 CLOSE #1 

90 END 

今度 は， このデータを2(1)〜乙（5)に代入し 

て， その 数 を プリンタで 印刷し 出し， 同時に その 
数 だけ * 印 を 横に 並べて みます. 行 番号 80〜100 か 

* 印 を 横に 並べる プログラムです. なお， 行 番号 

110 は， 行 を 変える ための プログラムです. 



10 C し S 

20 DIM Z<5) 

30 OPEN "I"，ttl， "Is ス ゥチ" 

40 OPEN "0"，tt2 パ , し PTOs •' 

50 FOR 1=1 TO 5 

60 INPUT#1 , Z < I ) 

70 PRINT#2 !1 Z<I>, 

80 FOR J=l TO Z<I) 

90 PRINT#2, M * M ; 

100 NEXT J 

110 PRINT#2 

120 PRINT Z(I) 

130 NEXT I 

140 C し OSE ^1,^2 

150 END 

これ を RUN させ， プリンタに 打ち出された 結 
果は 次のようになります. 

2 ** 
4 **** 
6 ****** 




ここで 示した ファイルの 方法 は， シーケ ンシャ 
ル ファイル といい. データ を 《1 けて インプット， 
または アウトプット する 方法です. シーケ ンシャ 
ル ファイルの 場合， その一 節の み を 変更して やつ 
たりす る こと はでき ません. このような場合に は, 
次の 章で 述べる ランダム フ アイ ルに ffi らな く て は 
なりません. 

ffi EOF (ファイル 番号） 

シーケンシャル ファイルの 場合の， 終わり を検 
出す る閒 数です. End of File の 略です ね. ファ 
ィルが 終わりに なると， 一 1( 真） となります 力へ 
そ う でない 場合に は 0 (») を 与えます. 

たとえば， IF 文に よって， 一1 か 0 か を 検出し, 
一 1 になった ら 必要 場所に ジャンプさせる ときな 
ど， 便利な 関数と して 利用で きます. 
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5.5 




フロッピィ ディスク や バブル メモリ は， 連 絞 的 
な， つまり シーケンシャルな 使い方し かで きな 
い カセットテープと 違い， 自分の 好きな ところに 
データ を 害き 込んだり， あるいは 统み 出したり す 

る ことので きる たいへん 便利 な 外部 iiitt 装 3K です . 
この 便利な 道具 を 自由に 使いこなす ために は， 実 
はこ こに 述べる 程度で はいいつ くせない 部分が 少 
なくありません. 

ここで は， この ランダム ファイル について， そ 
の 基本的な 命令の 使い方に ついて 触れて みたい と 
ffi 、います. ランダム ファイル を 自由に 使いこなし 
てこ そ， 初めて コンピュータの 真 M が ％ 揮 できる 
わけです から， 別の 機会 を 得て， その 詳細な 使い 
分けに ついて 学ばれる こと を 希望し ます. 

シーケ ン> 




ランタ' 厶 フ 



) 



m OPEN ' R" # フ アイ ル 番号， "フ アイ ルディ 

スク リブ 夕'' 

5.1 で 示した ように， モードの か 所に は R を 入 

れ ます. ランダム ファイル は， どこから でも 読み 

書きが できる ので， I， 0 などの 区別 は 必要ない 

のです. シーケンシャル ファイルの 場合 は， デ一 

タの 追加 （アペンド， A) しかで きません. 
シーケンシャル ファイル をた とえて いうと， 昔 

のれ 物で ある 卷き 物に 相当し ます. そのために， 
途中に 別の データ を 害き 込んだり する わけに はい 
かないの です. これに 対し， ランダム フ アイ メレ は， 
ルーズリーフ 式の ファイルに 当たります. つまり 
1 ベ一 ジ 分の 文章 を， ファイルの 指定した 場所に 
自由に 閉じ込む ことができる わけです. なお ラン 
ダム ファイルの 坳合， 数 ffi ではなく. 文字 変数し 
か 扱えない ことに ご 注, ft ください. また， 特に フ 
アイ' レ fff ゆ 0 は. 後 if の DSKI$, DSKO$ のと 
きに 使用され ます. 




7 卩ィ I レ 



フ 7 ィ / レ 




一 




、、に、 

ヽ、 Nfc 、 
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Fl E し D [ # ] フ アイ ル 番号， フ ィ ール ド幅 
AS 文字 変数 名 [, フィールド 權 AS 文 

字 変数 名] …… 

ランダム フ アイ ルのバ ッファ に 



り 当て 



る 役目 をし ます. ここで バッファ というの 
は， 上述の ルーズリーフの 用紙 1 枚， つまり 1 ぺ 
ージ 分に 当たる わけです. ただし， ルーズリーフ 
用と は 違って バッファの 場合 は 256 バイ ト と 決め 
られ ています. つ. ま')， 256 字 结の原 W 用紙 1 枚 
に 当たる と^えても よいので す. 

もちろん， 256 バイト 以下で 利 ffl しても よいの 
です が， バッファ は 256 パイ トと 決められて いま 
' 'ら， あと は 何も^き 込まれない ことにな り 



ます. ちょうど 1 枚の 原稿用紙に 何 文字 書こうと 
1 枚 は 1 枚， と 同じ ことです. 
FIELDS 1, 8 AS A$, 6 AS B$ 
この 例で は， ft 初の 8 文字 を 文字 変数 A $ 用と 
し， 次の 6 文字 を 変数 B$ 用と して， つま') 合計 
14 文字し か 使って いない ことにな り. たい へんぜ 
いたくな 使い方です. なお， もし 256 バイト を 超 
えて 合計の フィールド 槭を 指定す ると， Field 
Over flow の エラ一 表示が 出ます. また， それぞれ 

の 変数に 対して 同じ フィールド 幅 を 指定す る こと 

がで きる 場合に は， たとえば， 

FOR 1=0 TO 10 

FIELDS 1. 8AS A$(I), 6 AS B$(I) 

NEXT I 

のように， まとめて， 領域 を 割り当てた いところ 
です が， 一つの FIELD 文で 割り当てる 必要が あ 
ります ので， 

FIELD # 1 8 AS A$(0),-,8 AS A$(10) 
,6 AS B$(0),"',6 AS B$(10) 
のように 指定し ます. 



o 

マイ 叫し ド悟を ^良 
^ 唇君ナ 

A$Oo; 



0 



0 



フ イマ" む 17 玄^ 定 

含き え^ 



S PUT [#] ファイル 番号し レコード 番兮] 

ルーズリーフ 式の ランダム ファイルの， 何ぺー 

ジ 目に 閉じ込む か を 示す レコ一 ド 番号 を 割り 当て 

て， 閉じ こんで やる ための 命令です. この 命令 は， 

単に 閉じ込んで やる だけの 機能し か あり ません か 

ら， 原 «i 用 抵に鲁 き 込む のに 当たる 仕事 は， 次に 
示す LSET, RSET を あらかじめ 突 行して おかな 

く て はな'） ません. 
レコード 番号， つまり ページ 数 は 何 ページ 目 か 

ら 作って いっても よいので す 力、 たとえば 200 と 
人れ て やる と， それだけの レコードが 準備され て 
まい， それだけで 256X200 バイ ト 使う ことにな 



ります. そして， そのために エラーメッセージ 
Disk Full 力 < 出て， ディスクが 一杯に なり， デー 
タの 登録が できない という ことに もな り かね ませ 
ん. 

ランダム ファイル を 作る とき は， 1 ページ 目 か 
ら顺に PUT していく のが もっとも 妥当な や'） H 
でしよう. そして. このように 顺序 正しく PUT 
するとき は， レコード * サを' fl 略す る ことができ 
ます. 



レコ 一に は 70 ッ 

W ぼ 





PUT#1,3 



PUT 弁 1,2 

P0T# 1, 1 




-P リ了 #2,2 
P ひ T#2,1 
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m し SET または RSET 文字 変数 二 式 

ランダム ファイル バッファ， つまり 原稿用紙に 

害き 込み をす るの が この 命令です. ここでい う 文 

字 変数 は， もちろん FIELD 文で 割り当てられた 

変数 名の ことです. そして， これら は 文字 変数で 

すから， 文字 変数に 代入され る 式 もまた 文 宇式で 
なくて はなり ません. 

式の 結果の 文字列の 長さが， 文字 変数の フィー 
ルドの 長さより も 短い 場合， 
LSET 文で は その フ ィ 一ル ド に左结 めで， 
RSET 文で は右结 めで 

データ を满 たして いきます. そして 残った 部分が 
あれば， その 文字の 部分に は 空白が 人り ます. ま 
た 式の 方が 長い 場合 は， 右側から 文字が 捨てられ 
てし まいます. 

また， 数 ftft を LSET, RSET で 入れて やりたい 
^合に は， このまま では 人れ る ことができな いの 

で， 次の ような W1 数 を 使って 文 7:ff$ 式に 変えて や 
る 必要が あります. 




乂 



フィ 一/ レド 
ハつザ ェ' /? さ 



FIELD *1, S AS Af 




LSET A$-'ABC 



TV スク に 軎き独 



PVJ^hlo 



MKI$ (整数 表 K) 
MKS$ (単精度 表記） 
MKD$ (倍精度 表記） 

数値 を 文字 型に 変えて やる に は， STR$(X 
というの が ありました. しかし これ を 使う と， 数 
値の 状 想に よって 長さが いろいろ 舆 なって く る こ 
とがあります. ランダム ファイルの 場合， FIELD 
文で フィールド 幅が 决 めら れ るた め， いつも 同じ 
S さ を 持つ 方が 便利です. そこで 利用され るの 力 、 

このような 三つの M 数です. 

MKI $ (式) …… 2 バイ トの 文字列 
MKS$ (式） …… 4 バイ トの 文字列 
MKD$ (式） …… 8 バイ トの 文字列 

■ CVI, CVS， CVD 

の 文字 式から， 再び 数 値 におす と きに 使わ 

れる閣 数です. たとえば， MKI$ を 使って 文 宇に 
K したら. あと は 必ず CVI を 使っても とに 戻す 必 

要が あります. では， このお 7f いに 逆関数の 関係 
にある 二種 類の 関数 を 使って， プログラム を 作つ 

てみ ましょう. 

10 A7-= 12345 
20 B! =123456 
30 C#= 1234567890 
40 A*=MKI*(Ay.) 
50 B*=MKS*(B! > 
60 C*=MKD* (C#) 
70 PRINT CVI (A$》 
80 PRINT CVS(B$) 
90 PRINT CVD(C*> 
RUN 

12345 

123456 

1234567890 



5 AS B$ 

なら 



FI0LP«1, 5 AS A$ 

し SETAtt- 'W 

7 ィゥ 
B$ カキ 7 

LS^T M = " 7 ィゥェ 才力 キクチ J" if,, 
R.5ET H = " サシズ t 、/ タヰ i vf トリめ 

外— アイ ゥェォ 
g$ "^サ シ: Ml ソ 



148 



m GET [#] ファイル 番号し レコード 番号] 

ランダム ファイルから， コンピュータに 読み込 

むと きに 使う の 力、 この GET という 命令です. 

PUT の 逆です ね. PUT は 1 レコード， つまり ル 

—ズ リーフで いうと， 1 ページ 分 を 閉じ込んで や 

る 仕事 をし ました 力、 GET は 逆に 1 ページ 分 を 

取り出す 役割 を 果たします. たとえば， 
GET# 1， 10 

では #1 の ファイルから， 10 ページ 目 を 取り出せ, 
という 意味です. PUT の 場合 も， その 中身が ど 

うで あるかな どと いった こと は 関与し なかった の 
と 同様， GET ではた だ 1 ページ 分 取り出す 仕事 

しかしません. このような 仕事 を 引き受け るの は 
FIELD 文です. たとえば， 

FIELDtt 1. 8 AS A$, 6 AS B$ 

と あると， 先 ほどの 10 ベ一 ジ 目の 先頭の 8 文 ひ: 
が A$ に， そして 次の 6 文 宇が B$ に 入る ことに 

なる わけです. 



0師 れ' , , , 

フバ 化^. 0 咖 V, れヶ于 '-ダ 



圈 LOF (ファイル 番 

フ アイ ル 番号で 示 される 入 カフ アイ ルの, 
ファに 人って いる 文字 数 を 与えます. 



m loc 

フ アイ ル 番号で 指定 される ファ 

に GET または PUT された レコードの, 
ード 番号 を 与えます. 



直前 
次の レコ 



m DSKI$ または DSKO$ (ドライブ 番兮， 
トラック 番号， セクタ 番号） 

DSKI$ は， ディスケット 上の 指定され たセク 



タの 内容 を K 接 み 取る 場合， また DSK0S は， 

K 接 書き込み をす る 場合の ための 関数です. 

DSKIS 閱数を 使用す る 前に は， FIELD 文で， 
0» バッファ を 使って 文 宇 変数 を 定義して おかな 
く て はなり ません. 

FIELD #0. 40 AS A$， 64 AS B$ 

なお， ドライブ 番号 は 0〜3, トラック 番号 は 
0〜39, セクタ 番号 は 1〜32 であり， 17〜32 を 指 

定 したと き は， ディスケットの 爽 * の セクタ 1 一 
16 を 示します. 
DSKO$ は， ファイルの W 成に は 全く 禁 



i(S 接 * き 込む わけで, iifl'ffi' の 使い方で はない ので， 
詳細に ついては 略します. 



7 ィー ゾレド 欠で、 

ぼし w 外 




^^こ 



A おの 中に 



PRINT A$ 
斤' も タ '一 




PRINT A 

50 
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图 ランダム ファイルの 簡単な プログラム 例を綢 
ベて みまし よ う. 

10 OPEN "R 'つ #1， "Is ランタ" ム'' 
20 FIE し D #1, 10ASA*, 10ASB* 
30 し SET A*=" 12345" 
40 RSET B*="67890 n 
50 PUT#1， 1 
60 C し OSE #1 

行番兮 10 で ランダム ファイル を ファイル 番号 # 
1， ファイル 名 ランダムで 定義し ます. 行 番号 20 
で A$， B$ を 害き 込む こと を 指定， 行 番号 30, 
40 で ランダム ファイル バッファに 移します. 

A $ = "1 2 3 4 5 '* 

B $ = " 6 7 8 9 0" 



行 番号 50 で レコード 1 に A$, B$ を ディスク 

上に 害き 込みます. 

次 は 読み出しの ブロ グラムです. 

10 OPEN "R" , #1 ， " 1 = ランタ "厶" 

20 FIELD #1, 10ASA*, 10ASB* 

30 GET# 1 ， 1 

40 PRINT A* 

50 PRINT B* 

60 CLOSE #1 
これ を 実行す ると 次のように なり ます. 

RUN 
12345 

67890 



m シー. 



f ィ！' キス ク ！ 



^^つ g ナ耸を 害^^ 
^ます 




0 REM シーケンシャル フ"？ イ) I； 

10 OPEN "O'^ttlj/'^? クノテ "一 ヲ'' 

20 FOR 1=1 TO 9 

30 PRINT I; •' ノ ラ" ン" 

40 PRINT #1, I 

50 PRINT #1, '• ノ ヲ" ニパ' 

60 PRINT 

70 FOR J=l TO 9 

80 PRINT I; '^"； J; M = M ; I*J 

90 PRINT#1 , I 

100 PRINT#1 ， 

110 PRINT#1 „ J 

120 PRINTttl , '■ = " 

1 30 PRINTttl, I*J 

140 NEXT J 

150 PRINT 

160 NEXT 

170 C し OSE #1 

ISO END 



^嚴を 丁丄に 表す、 す 'さ 

乙 こ 3 で 'す. 




ョ O〜U0 ゆ" 7/7' ンふ 0 ィ 
テ > ズ 7に#ク7^ タさ 

き H、 とこ す 




9 ノ タ' 






9 * 1 


= 


9 


9*2 




18 


9 本 3 


= 


27 


9*4 




36 


9*5 




45 


9 本 6 


= 


54 


9*7 




63 


7*8 




72 


9 本 9 


= 


81 


Ready 
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フ ヒ 0 1' B l > テ" ーラ ラ 3 ^卜 リ マス 

99 ノ 卜" ノ ヲ" 二' ラ 3^^7.71? 10 



テ" 一 ヲ すシ 



II こ 1 〜ラ丄 、人 # も イン 尸 7 んレ 
广 :^^、(J>A 巾" も当ラ ない 



0 REM シーケンシャル フ"？ ィル 3 ミ ，、、 -:， 
10 OPEN "1"，#1, "7 フノテ "一 ヲ 1 ' 
20 C し S 

30 LOCATE 2,2 

40 PRINT ' 'フ ロ~ヒ。1' 3V テ" 一 タ ラ 3 ミ卜リ マス' • 
50 LOCATE 4,4 

60 PRINT "99 ノ にノ ラ" ン ラ 3 ミ マスカ"； 
70 INPUT I 
80 INPUT 

90 IF I=A THEN 150 
1 00 FOR N=l TO 9 
110 INPUT ftl'E^E^C^C^D 
120 NEXT 

130 IF EOF < 1 ) THEN 300 
140 GOTO 80 
150 PRINT 

160 PRINT TAB (6) ； A; A* 
1 70 FOR N=l TO 9 
180 INPUT ttl^E^C^C^D 
190 PRINT TAB<8) ;B:B*;C;C*;D 
200 NEXT 
210 CLOSE #1 
220 END 
300 C し OSE #1 
305 PRINT 

310 PRINT " テ" ーヲ すシ" 

320 END I Tz^-i^^^m じひる 

^マ は^ 5 る 1 )/ 



f WO 〜！ 20 は T-?^\ 

1^ み)：/ ま" サフ。 0 ク" ラな もし 〒 -タ) 

の リ ま 7" ま h EO FT- ギ r 雀 も 

3(X> にま^ t, 《う マ" なけね ネマテ 

no t つ ま" の 亍、 ク も t ま j 



7り 1" 錄ぇェ に 7〜i ま r 

\^) %k^.^> フ-ッ ト ざせ % リ 

\^Tf. さ びる 7。a n"y 厶 -^r^ 

(^JY^hT- 9 It 行 も § 10 s 

lZ" レ A の 土 l 合. / ~ - ^ ― 

んフ^ V/ レ先 はきき kj\ 



フ n' リヒ fl ィ 3 リ テ" 一 サ ラ 卜リ マス 

99 ノ 卜" ノ ヲ" ン ラ マ 7!TT? 9 




8 7 6 5 4 3 2 1 

9 1 0^ 3 4 5 6 7 8 

一一 II II 一一 一- II II II 一一 

./_ 12 3 4 5 6 7 8 9 

/• 0/0/9999990/ 

9 
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フ アイ/レ^ r 7 にし ス" 
ヒ 二人 兮ゥゲ ±戶 /^^き 

^^^ち、フ。0グ7么 で 'ず 



圍 ランダム ファイルの 例 

0 REM ラン ラ" 厶 フ 7 ィ H/ カキ US 

10 WIDTH 40,25 • 
20 N=l 

30 OPEN "R" ， #1 ， "ァ 卜、 'レス' i 
40 REM FIELD シティ 

50 FIELD #1, 10 AS Nl*, 10 AS N2*,35 AS AD*, 6 AS PN*, 15 AS 丁し$ 
60 REM DATA STR 
70 C し S 

80 READ A わし SET N1*=A* 
90 し OCATE 2， 2 SPRINT M 
100 READ A わし SET N2*=A* 
110 LOCATE 13,2s PRINT A$ 
120 READ A わし SET AD*=A* 
130 LOCATE 2,4:PRINT A* 
140 READ A わし SET PN*=A* 
150 LOCATE 2, 6s PRINT A* 
160 READ し SET TL$=A$ 

170 し OCATE 2,8:PRINT A* 
180 FOR 1=1 TO 10 

190 NEXT 
200 LOCATE 2, 17 

210 PRINT " フ CHt« イ テ" イス ク へ カキ コミ マス 
220 LOCATE 2， 19 

230 PRINT " 卜、' ライフ" 0 レ n — 卜" No"5lM 
240 PUT #1,N 
250 FOR 1=1 TO 1000 
260 NEXT 
270 N=N+1 

280 IF N>2 THEN し OCATE 2,21:PRINT "テ" ータ 力 チコ ミ オフ リ" 
CLOSE #1:END 
GOTO 60 
DATA スス" や 
DATA シ 3 ゥ. イチ 

DATA 卜 ゥ 中 3 ゥ卜 tr ク 7TT ク サン ケ" ンシ" ャャ 1234 
DATA 154 

DATA 03- (333) -3333 
DATA サ卜ゥ 

DATA X")3 

DATA ォオサ カフ フシ" ィテ w ラシ つ ャマ o — 1 一 7 

DATA 583 

DATA 06- < 666) -6666 



II 




スヌ" キ 



シ 3 ゥ イチ 



卜ゥゃ ヨウ 卜 t タカ、、 ャフ サン ケ" ン i 广ャャ 1234 



154 



03- (333) -3333 
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ooooooooooo 

9 o 1 0^ 3 4 5 6 7 8 9 

2 3 3 3 3 3 3 3 3 3 3 



フ ロサヒ^ィ テ" イス ヮ 、 カキ コミ マス 

卜" ライフ" 0 レ U — 卜" No 1 



サ卜ゥ 



ォォサ カフ フシ" ィテ "ラシ コャマ 0-1-7 



583 




06-(6<S6)-6666 



フ C3" スヒ *ィ テ" イス ヮ ^ 力 チコ ミ マス 
卜" ライフ" 0 レ 3— 卜" No 2 



テ" 一 ヲ 力 午 コミ オフ リ 



つえの フ。 O ク" ラ厶は 
\ 砉ま 込んだ デしタ を 

f もみお y7。 ば， a 




A o% ?/a ス 

PAJ$ 卿 あ? 

rL ^ mm 

0 REM ラン ヲ"ム ファイル 3 ミタ "シ ―"" 
20 N=l 

30 OPEN "R'^ttl, "ァ 卜" レス" 
40 REM ド1£し0 シティ 

50 FIELD #1, 10AS Nl*, 10AS N2* !1 35AS AD*,6AS PN*„ 15 AS T し $ 
60 REM DATA STR 
70 C し S 

80 LOCATE 2 f 17 

90 PRINT "3 ミラ" シ ライ レ:) 一 卜" No iV 1 ; 
100 INPUT N 
110 GET #1,N 

120 LOCATE 2,2:PRINT Nl* 
130 LOCATE 13,2:PRINT N2* 
140 LOCATE 2 !I 4:PRINT AD* 

150 LOCATE 2,6:PRINT CHR*<S<HF8) ； " " ； PN* 
160 し OCATE 2;,8:PRINT "TEL •• 5 T し $ 
170 CLOSE #1 

35 、ヲ" シ ライ レ ：] 一 卜" No A? 2 



サ卜ゥ 



ェ , リ II 



ォォサ カフ フシ" ィテ" ラシ コャマ 0-1-7 



f 583 



TE し 06 — < 666〉 一 6666 
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5.6 




い） フ D ッヒ 。イ^ス グ 



ここで は， 入出力 装 s を 操作す る 上で， まだお 
伝えして いない いくつかの 操作 命令に ついて ま と 
めて 示します. 

S DSKINI 

システム ディスク 作成 後， フロッピィ ディスク 
の 初期化 を 実行し ます. 




フロッピィ ディスク を 初期化す る と き に 使 し 
ます. 

ドライブ 番号 は， 初期化す る ディスケット をセ 
ット した ドライブの » 号です. この コマンド を 人 
力した とき， Are You sure (Y or N) ？ の 
閫 い 合わせの メッセージが 出ます. そこで， 初期 
化 を 実行す るなら Y, 初期化 を 中止す るなら N を 
キー インして やれば 完了し ます. 

この コマンド を 突 行す ると， 今まで 害き 込まれ 
ていた ファイルが 全て 消える ので， 注意して くだ 
さい. 




S BUBINI (FM— 8 の 《 合） 

バブル カセッ トの 初期化 を 行ないます 



BUBINI ュニッ ト 番号 



バブル カセットの 初期化 を 実行す ると， 今まで 

* き 込まれて いる 内容 は 消されます. 

ユニット 番号 は 0, または 1 です. 初期化 を 実 
行 するとき は， バブル カセットの 裏側の ライト ブ 

ロテク トを RECORD 側に してく ださい. この 状態 
で バブル カセット を セットし， BUBINI を 実行し 




シス 亍厶ぢ スケ^： ィ g 

つ Z,PISffJ7- ドさ 
コピー,, ね. -' 

r リ N^srs, 




FILES 



152 Clusters Free 



ます. 

この コマ ン ドを 人力す ると， Are you sure 
(Y or N)? の メッセージ を 表示し ます. そこで， 
初期化す るなら Y を， 中止す るなら N を 入れて や 
れ ばよ いのです. このと き， もし ライト ブ ロテク 
ト が RECORD 側に なって いなければ， "Device 
I/O Error" と 表示して， BASIC コマンド 待 
ちの 状態に 戻ります. なお， BUBINI を 突 行す る 
と， 今まで 害き 込まれた 内容が 消えます ので 注意 
してく ださい. 



m MERGE 

メモリに ある プログラムと， 指定され たファ 
の プログラム を まぜ 合わせます. 




ログ ラム をつな ぐ 場合に 使い ま 



す. 

ファイルの 中の プログラムと メモリ 中の プロ グ 
ラム を まぜ 合わせます. その 場合， 同じ 行 番号の 
ものが あれば フ アイ ル 中の 行 番号の プロ グラムが 
« 先し， メモリ 上に 置き かわ リ ます. なお， MERGE 
を 使用で きる ファイル は， アスキー 形式で セーブ 
された ファイル だけです. 

サブルーチンの ブロ グラム をフ アイ ル にた く さ 

ん 害き 込んで おき， ブロ グラム を 作る^ こ MERGE 
を 使って， サブ プログラム を^み 込んで 作れば， 
プログラム を キー ボ一 ドカ 、らィ ンブッ トす るよ り 
らくに 作れる でしよう し， また 大きな プログラム 
の 場合， 何人 かで 手分けして 作る こと も 町 能に な 
ります. 
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m KILL 

フロッ ビィ ディ スク や， パブ ルカ セッ ト 上の ファ 

ィルを 削除し ます. 



KILL "ファイル ディスクリプタ'' 



フロッピィ ディ スクゃ バブル カセッ ト に^き 込 
まれて いる ファイル を 削除し ます. 

直接 モードで， この コマンド を 人力した とき は， 
Are you sure (Y or N)? の 問い合わせ メッセ 
—ジが 表示され るので， 削除す るなら Y を イン プ 
ット， 削除し ないなら N を インプット します. 

FI し ES "1: 

FUJITSU 0 B S 1 
FUJIYAMA 0 B S 1 

150 CI usters Free 

Ready 

KI しし " 1 s FUJIYAMA" 

Are you sure < Y or N>? Y 

Ready 

FI し ES "1: 

FUJITSU 0 B S 1 

151 Clusters Free 

Ready 

これ は， フロッピィ ディ スク 上の ファイル FUJIYA- 
MA を 削除した 例です. 

M NAME 

フロッピィ ディスクの フ アイ ル名を 変お します. 



NAME "旧 ファイル ディ スクリ ブ タ" 
AS "新 ファイル ディスクリプタ'' 



フロッピィ ディスクに 害き 込まれて いる フ アイ 

ルの 名前 を 変更したい 場合に 使用し ます. 
二つの ファイル ディスクリプタの デ バイ ス名 は, 

同じで なければ な リ ません. 



FI し ES "1: 
FUJIYAMA 0 B S 1 
151 Clusters Free 
Ready 

NAME "IrFUJIYAMA 11 

AS"1:FUJITSU" 

Ready 
FILES " 1 : 

FUJITSU 0 B S 1 

151 Clusters Free 

Ready 

フロッピィ 上の ファイル FUJIYAMA を NAME 
文 を 使って FUJITSU に 変 K しました. 

m LOAD ？ 

カセッ ト テープに プログラム を SAVE する 場 
合， プログラム と共に チェックサム データが 録音 
されて います. そこで， プログラム を LOAD す 
ると きに プログラム を カウントし， その 数と テー 
ブ 上に 録音され ている チェ ッ ク サム データと を 照 
合する ft 令です. 



LOAD? ["[CAS 0 ：] ファイル 名"] 



プログラム 力 《 正し く 说み 込まれた かどう か チェ 
ック して 统み 込みます. もし， チヱ ック サムが一 
致しなければ "Device I/O Error" が 表示され 
ます. つま リ， 正確に 録音され ている もの 以外 は 
LOAD できません し， テープに キズ などが あって 
もや はり LOAD できません. なお， "CAS0: フ 
アイ ル名" を 省略した 場合 は， テープに 録音され 
ている 一番 ft 初の プログラム を LOAD ？ します. 

m SKIPF 

^した ファイル を^ み 飛ばします. 



SKIPF [ "CAS 0 ： ファ イソ レ名' 1 



"CAS0: ファイル 名" を 省略した 場合 は， 一 
番 ft 初に 読み込まれた ファイル を 説み 飛ばします. 
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この 章で は， パソコンに 通^ tel 線 をつな いで， 遠く 
離れた ところに ある 別の 機械と 悄報を やり取りす 
る 方法 や， コンピュータが K 接 理解で きる 機械語 
を 利 巧 するとき に 必要な BASIC の 命令に ついて, 
その 概要に ふれて みたい と 思います. なお， この 
ような より 高度な 使い方に ついては. ここで はと 
うてい 説明し つくす こと はでき ません. 詳細に つ 
いて は， 別の 参 々« 料 を 参照して ください. 




コンピュータと 電ぉ 回線と を 結ぶ 音 《f カプラー 



通信 回線 制御機 能 



FM シリーズ 通 線 を 利用して， データ ゃブ 
ログ ラム を， 遠く 離れた ところに ある 別の パー ソ 
ナル コンピュータ や 大型の コンピュータ とやり 取 

りで きる 機能 を 持って います. このための， イン 
タフ エース は 5 個 あり， RS — 232 C 規格と なって 

います. 

この 機能 を 利用す ると， 北海道と 九州で パソコ 
ン ゲーム をしたり， 全国 各地に ある 支店から， コ 
ン ビュー タの データ を统み 取ったり する こと もで 

きます し， RS — 232 C 規格に よる インタフェース 
を 持った プリンタ や， X—Y プロッタ 計測 器な ど 
を コント ロールす る こと も 可能です. 

なお， RS — 232C と は， データ を 直列に 出し 入 
れ するとき の ルール を 定めた 規格です. FM シリ 
ーズ は， この インタフェース を COM0 ：〜 COM 4 
： まで 5 回路 を 持って います. 

m OPEN 

通信 回線 を 用いて 外部と データの やり取り をす 
るに は， あらかじめ 次の 命令文 を 実行して， 形式 
を决 めて やらなくて はなり ません. 



OPEN モード'， [#] ファイル 番 今， 
"COM n ： (ォ プショ ン）" 

モード は， 入力のと き は v l" , 出力のと き は 
'(T です. 

ファイル 番号 は 1 〜 16 です. 他の OPEN 文と 
同じ 番号に ならない ようにし ます. 
COM n は デバイス 名です. COM0 ：〜 COM4 ： 

で， 入出力 をす る ボート を 指定し ます. 

オプション は ボーレート， ビット 長， パリティ， 
ストップビット 数 を， CBPS の « に 指定し ます. 
C, B, P, S の それぞれの 指定の 方法 は 次のと 
お り です. 

C 一 ボーレート （データ を 送り出す 速さ） 

F ： fast クロック （1 Z16) 

S ： slow クロック （1/64) 
のど ちらか を 指定し ます. 
B — ビッ ト長 （ つの データの ft さ） 

7 ： 7 ビッ トノ 文字 

8 ： 8 ビッ トノ 文字 

P — パリティ （エラ 一チェックの 指定） 
E ： 偶数 パリティ 
0 ： 奇数 パリティ 
N ： ノン ハ*リ ティ 

S — スト ッブ ビット 数 卜-つの データの 終わり を 示す ピ 7 ト&) 
1 ： 1 スト ッ ブビッ ト 

2 ： 2 スト ッ ブビッ ト 
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m c し ose 

OPEN 文で 通信 回線に 割り当てられた ファイル 
を 閉じる 命令文て す. 

["close [[#] ファイル 番号し [#] I 

ファイル 番号] …… ] 

OPEN 文と CLOSE 文 は， 必ず ペア 一とな つて 
プログラム 中で 使用し ます. 

OPEN 文で 指定した ファイル は， 用ず みに なつ 
たら 必ず CLOSE 文で ファイル を 閉じて ください. 

图 INPUT # 

OPEN 文で 指定され た 通信 回線から デ一 タを入 
力す る 命令文です. 



INPUT # ファイル 番号， 変数 名 

_ I 変数 名] …… 

同じ フ アイ ル 番号の OPEN 文で 指定され た RS 

一 232C 通信 回« 用 ボー ト から データ を统み 取り， 
指定され た 変数に 代人し ます. 
データの 统み 取り は CR. コンマ （，） または コ 

ロン （ ： ） で 区切って あります 力 f , これらの 文字 
コード は 変数に 代人され ません. 

♦ LINE INPUT 

INPUTS 文 と同じように， 通信 回 糠の データ 
を统み 取ります 力、 LINE INPUT # は 1 行の 文 
字 変数と して 入力す る 命令です. 

LINE INPUT # ファイル 番 母， 
文 宇 変数 名 

同じ フ アイ ル 番号の OPEN 文で 指定 された RS 
一 232C 通信 回線 用 ポートから， データ を 255 文字 
以内の 文字 を， CR コードが 現われる まで を 1 行 
として 统み 取り， 一つの 文字 変数に 代人し ます. 
256 文字 以上の 统み 取り はでき ず， 255 文字まで 
を 変数に 代入して 実行 を 終わります. また， CR 
コ一 ドは 変数に 代入され ません. 

圈 PRINT # 

INPUT ft の 反 対で， OPEN 文で 指定され た 通 
信 回線に データ を 出力す る 命令で， 次の 2 形式が 
あります. 



PRINT # ファイル 番母 

[，式 f ： } 式] …] 



PRINT # ファイル 番号， USING 
フォーマット 文字列 ；式 [{: 》 式〕… 

同じ ファイル 番号で， OPEN 文で 指定され た 
RS — 232 C 通^ 回線 用 ポー 卜から データ を 出力し 
ます. 

USING フォーマット は， PRINT USING 文 
を 参照して ください. 

INPUTS, LINE INPUT は INPUT, LINE 
INPUT とほ f J "同じで， INPUT 文 は KEY ボード 
より データ を统み 取')， INPUT # は OPEN 文で 
指定され た RS — 232C ホ '一ト より データ を Jft み 取 
ります. 

PRINT », PRINT Jt USING は PRINT. 

PRINT USING とほ 【3： 同じで， PRINT 文 は CR- 

T に データ を 表示し ます. また， RRINT # は 

0 PEN 文 で 指定 された R S — 232 C ボートより デ一 

タを 出力し ます. 

OPEN "l\ # n, "COMn :(CBPS) W 

INPUT n or LINE INPUT n 
C し OSE n 

O.PEN "0", #n, "COMn : (CBPS" 
PRINT JJ n or PRINT n USING 

CLOSE tt n 

以上の ように 使用し ます （n は 1 から 16 で 指定 

です). 
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m LIST 

通信 回線 を 用いて 外部に プロ グラム リ ス ト を 出 
力す る 命令文です. 

厂 UST "COMn ： [(オプション)]" I 
一 [，[行 番号] [に I [行 番号]]] 

COMn ： で 指定され た RS— 232Ciifi 信 ボートへ 
プログラム リスト を 出力し ます. 

COMn は デバイス 名で， COM0 ：〜 COM3 ： 
のい ずれ か を 指定し ます. 

オプションに ついては， OPEN の 項 を 参照して 
ください. また， 行 番号の 指定 は LIST 文の 説明 
を 参照して ください. 

この 命令文に 限り， OPEN 文での ファイル 指定 
は 必要な く， RS — 232C インタフェイス を 持った ブ 
リンクな どに， LIST の ブリント アウトす る 場合 
に 使用し ます. 

9 ON COM ( n ) GOSUB 

今までの 通信 回線の 人力 命令で は， データが 外 
部より 送られて くるまで， プログラム は 停止し 
ています. これで はたい へん 時間の むだと なり， 

別の 仕事 を させたい ときに 役に立ちません. そこ 
で データ 力 < 送られて きたと き だけ データ を ま ft み 取 
るよう に， 割り込み を かける のが ON COM (n) 
GOSUB 文です. 
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ON COM(n) GOSUB 文で 入力 割り込み をす 
ると き， 割り込み 実行時の サブルーチン を 指定し 
ます. 



ON COM 


(0)1 
i 


GOSUB 行 番号 




(4) 

- 





行 番号 は， COM (n) で 指定され た ポートより， 
人力が あつたと き に 呼び出 される 割り 込み 処理 ル 
一 チン 開始 行 番号です. また， '剤り 込み ルーチン 
からの は， RETURN 文に より 実行され ます. 



m COM (n) ON/OFF/STOP 

ON COM (n) GOSUB で 指定した 割り込み 処 
理. の プログラム を， 入力 割り込みが 発生した とき 
に， 割り込み を 許可す るか， 禁止 か 停止 か を 指定 
する 命令です. 





(0) 




ON 1 


COM 


\ 




OFF 




(4) 




STOP 



COM(n) n は ボート * 兮で 0〜 4 の 値 を 取り 
ます. 



COM (n) ON で 指定した 通信 ポートに 入力が 
ある 場合， ON COM(n) GOSUB で 指定され た 
処理 ルー チン を 呼び出 します. 

COM (n) OFF で 指定した 通信 ポートからの 
入力 割') 込み を 禁止し ます. また， COM (n) STOP 

で 指定した 通信 ポートからの 入力 割り込み を一 時 
停止し， COM (n) ON で 再開し ます. 

ON COM(n) GOSUB は， ON KEY (n) 
GOSUB とほ fj" 同じで， ファンクション KEY よ 
りの 割り込み か， 通信 Iq] 線 RS — 232C ボートより 
の 割 '） 込み かの 違いだ けです. 

m TERM 

F— BASIC よ り ターミナル モー ドに 切り かえ を 
する 命令です. この 命令に より バソコ ンを 端末機 
として 使用で きる ようになります. 



TERM [ "cbpsma" ] 



c …ボー レート 

S ： slow F ： Fast 

b …ビッ ト長 

8 ： 8 ビッ ト S 7 ： 7 ビッ ト投 
p …ノ、 *リ ティ 

N ： パリティ なし 0 ： 奇数 パリティ 
E ： 偶数 パリティ 
s …スト ッ ブビッ ト 

1 ： 1 スト ッ ブビッ ト 
2 ： 2 ストップビット 
m …モード （通信の 方法） 

F ： 全 二 ffi 通信 H ： 半 二 甩通倌 
a …ォ一 ト LF を 行なう か 否か を 示す. 
A ： オート LF を 行なう 
N ： オート LF をし ない 
その他 ターミナル モードに ついては， いろいろ 
な 機能が あり， 注意 を 要します. F — BASIC 文法 
寄， ならびに 端末機と して 使用す る 場合 は， ホス 
ト 側の コンピュータの 仕様書 をよ く 検討して くだ 
さい. 



機械語 




BASIC はたい へん 便利な プログラム 用言 語で 
すが， 処理の 内容に よって は スピードが 遅くて 困 
る， という 場合 もあります. このような 場合， 速 
い 処理 を 必要と する 部分 を 機械語で 作れば， この 
ような 欠点 を 補う ことができます. 

m POKE 

メ モ リ の 指定 番地に データ を 害き 込みます. 



POKE 害き 込み 番地， データ 



» き 込み S 地 は, 0〜65535 の « 囲で あり, デ 
ータは 0〜255 の 範囲です. 

m PEEK 

メモリの 中の 指定 番地の データ を^み 出します. 
つまり， POKE の 逆の 動き をす る 命令です. 



PEEK (式) 



式 は 0〜65535 までの 範囲の 数で あり， ァ ドレ 
スを 示します. FM シリーズ では， V — RAM (画 

【お h^n\ の メ モ リ ) を yij の cpu x-'mm してい る 

ため， PEEK, POKE で 直接 V-RAM の 内容 
を统み 出す こと はでき ません. 



9 VARPTR 

BASIC プログラム 中の 変数 名で 指定され るデ 
一 タが格 « されて いる 先頭 番地 を 与えます. 



VARPTR (変数 名) 



変数 名 は， 任意の S (数 «U 文字， 配列） を 使 
うこと がで きます 力、'， VARPTR を 使う 前に， そ 
の 変数に は 値 力 《 代入され ていなくて はなり ません. 
この 関数に よって 与えられる 番地 は， 一 32768 か 
ら 32767 の 値 を 取'） ます. もし， 負の 値に なった 
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til 



とき は， 実^の 值を 得る ために 65536 を 加えます. 

配列に 対して VARPTR を 使用 するとき は， 全 
ての 単純 変数に 値が 代人され ていなくて はなり ま 
せん. これ は 新しい 変数に 値 力 < 代入され ると， 配 
列の ァ ドレスが 変わる ためです. 

文字 変数に 対して は， データの 格納され ている 
アドレスの ポイント を 示します. 

m VARPTR の数德 変数 を 指定した 場合 

パソコンの MONITOR を 利用して， メモリ をダ 
ンブ してみ ましよ う. 

10 A"/.=»10 

20 PRINT VARPTR (A%》 

30 PRINT HEX* (VARPTR (AX)) 

RUN 

2852 
B24 

VARPTR で A% の 格納 ァ ド レ スが & HB 24 と 
わかりました. そこで MON を 入れて， * 

で ダンプし ます. 

B24 0 0 OA 



A は 《5 数^ 変数で 2 
の プログラムの 場合 (0 
MON 



0A)w-(W)w となります • 



iO AS=" 12345" 

20 PRINT VARPTR (A*) 

30 PRINT HEX* (VARPTR (A*) > 

Ready 
RUN 

2857 
B29 

VARPTR (文字 変数） で， A $ の 格納 アドレス 
&HB29 とわ かりまし たので， M0N 機能で， 
B29 0 5 0 B 0 0 
A $ の 文 字数 格納 アドレス 
格納 ァ ドレスが B00 とわ か り ましたので， 
B00 31 32 33 

A の アスキー コー ド 
これ を 利用して， PEEK で统み 取り， POKE で 
害き 込む と， 変数の 内容 を 自由に 変更す る ことが 
できます. 



*DB29 



0B29 
0B31 
0B39 
OB41 
0B49 
0B51 
0B59 
0B61 
拿 



05 
00 
00 
00 
00 
00 
00 
00 



0B 
00 
00 
00 



00 30 
00 00 
00 00 
00 00 



00 
00 
00 



00 00 
00 00 
00 00 



00 
00 
00 
00 
00 
00 
00 
00 



00 
00 



00 
00 
00 
00 
00 



00 
00 
00 
00 
00 
00 
00 



00 
00 
00 
00 
00 
00 
00 



♦DOAEO 



注） これらの 値 は， BASIC の 使用 状態に より 

いろいろと 異なって くる 場合が あ り ます. 



OAEO 
0AE8 
OAFO 
0AF8 
0BO0 
0B08 
0B10 
0B1B 
拿 



♦ VARPTR の 文字 変数 を 指定 し た 場合 

前述の 場合と 同様にして， MONITOR で メモリ 
を ダンプし てみ ましよ う. 



OOO2B8EC0 

o o o 2 o 2 1 2 

00050101 

OOOEOAOA 

O0-O4 2F5F 

o o o 2 2 F 2 F 

00015 0B8 

o o o 4 3 2 o 2 

000A4907 

00003B09 

0000349F 

0000312F 

0 0 072040 

000030 2 2 

OOOB1419 

o o o o 3 1 4 B 



o o 7 o 

o o 4 o 



o o F 

o o 4 



2 



o 

o 

2 



o 

o 



o o 

o o 



o o c o 

o o 4 o 

9 o 1 o 

3 o 4 3 

o 2 4 o 

3 5 5 o 



9 1 o 

4 4 o 



A o 3 o 

o o 4 o 



2 Aw 

4 4 

c 4 

2 3 

B B B B 

o o o o 



o 

o 

c 

3 



o 

o 

o 

o 

o 

o 

o 

o 

o 

4 

4 

o 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

4 

B 

o 



o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 



o 

o 



o o 

o o 

o o 

o o 

o o 

o o 

4 c 

5 5 

B B 

o o 拿 
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ffi EXEC 



i PR 



の プログラム を 実行す る 命令です. 



EXEC 



機械語の サブルーチン を 実行す る 命令です が， 
BASIC の プログラムと 違い， 間違いが あっても 
エラーの 表示 をせ ず， 場合によって は * 走す る こ 
とも あるた め， 注意 をし なくて はなり ません. も 
し プログラムの 問 違いに より， BASIC に 復棵し 
ない 場合 は， リセット スィッチ を 押してく ださい. 

また， サブルーチンの RETURN 命令に 相当す 
るの が RTS 命令です. なお， レジスタ は BASIC 
側で PUSH. PULL を 実行し ます. 

m DEF USR 

機械 龉のブ ログ ラムの 開始 番地 を 指定し ます. 



DEF USR [数字] = 

[機械 H プログラム M 始 番地] 



機械 i!S の サブルーチン を一 つの 関数と して 扱え 
るよう に， この 命令文で^^ し， USR+ 数字が 
関数お として 呼び出す ことができます. 数字 は o 
〜 9 までの 任意の 数です. 

機械 ^プログラム 開始 * 地 は， USR 〖数字] 
定 された ときに 実行す る 機械語 プログラムの 



■in 



m usr 

引数 を 持って ユーザの 機械語の サブルーチン を 
呼び出します. 



USR [数字] (引数) 



DEF USR で 定^して 指定した， 機械語の サ 
ブルー チン を 実行し ます. 



引数 は 機械語の サブルーチンに データ を 渡す と 
きに 必要で， 変数 または 定数 を一 つ だけ 指定で き 
ます. 

引数 情報 は， A レジスタと X レジスタに 格納し, 
機械 踣サ ブルー チンに 渡されます. 



A レジスタ =2 引数が 整数 型 

3 " 文字 型 

4 " 単精度 実数 型 

8 ' 倍精度 " 
X レジスタ = 引数 力、 1& 枘 されて いる 番地. 

①桉数 型 



X— 0 

1 

2 
3 



上位 8 ビッ ト 



下位 8 ビッ ト 



文字 型 



0 

1 

2 



文字 & 



文字列が 格納 さ 
れ ている アドレス 



(D 単精度^ 数 型 



x 



0 



ffi 数 部 





DEF USR 例 

10 CLEAR ， &H5000 

20 DEF USR 1 =&H5000 

100 A%-USR1(A%) 
DEF USR 1 

USRX. は 同 番号で 指定し ます. 
この USR 関数 をう まく 使う と， BASIC プ ログ 
ラムの データ を 機械語 サブルーチン ヘイン プッ ト 
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したり， アウトプット したりす る ことができます. 

測定器な ど を パソコンに 接 絞して， データの 统 
み 取り は 機械語で， 測定 結果の 計算， グラフ 表示 

など は BASIC で やれば， 簡単に プログラムが 作 
れる でしよ う. 

圏 し OADM 

機械語 プロ グラム を メモリに ロードす る 命令で 
す. 



LOADM "ファイル ディスクリプタ' 

し [オフセット 值]， [R]] 



機械語で 作られた プログラム を， ファイル ディ 

スク リブ タで 指定した ファイルよ り ロー ド する 命 
令です. オフセット 慷は 機械^の プログラムに ブ 
口 グラムの ロー ド すべき 番地が 記録され ています 
が， その * 地に オフセット 値-を 加算して ロードし 
たい 場合に 指定し ます. R の 指定 をす ると， ブロ 
グラム ロード 後， その ロードした プログラム を 実 

行し ます. 指定し なければ， プログラム ロード 後 
BASIC に 戻ります. 

圏 SAVEM 

メモリ の 内容 をフ アイ ルに セーブす る 命 余です. 

SAVEM "ファイル ディスクリプタ" 
，開始 番地， 終了 番地， 入口 番地 

ファイル ディ スク リブ タで 指定した ファイルに 
メモリの 内容 を セーブし ます. 

開始 番地と は， ファイルすべき 内容の 先頭 番地 
です. 終了 番地と は， ファイルすべき 内容の 終了 
番地です. 

入口 番地と は， ファイルした 内容の プログラム 

を 実行す る 場合の スタート 番地です. LOADM. 
EXEC コマンド では， この 入り口 番地より ブ ログ 

ラムの 実行 を 開始し ます. 



wmm MONITOR 機能 

論 

FM — X は， BASIC の プログラム 以外に， 簡単 
な 機械語が プログラム できる ように， モニタ 機能 
が 内蔵され ています， BASIC のコ マン ド モー ド 
より， モニタ コマンド を^み 出して みましょう. 

MON の コマンド によって， BASIC の コマンド 
モードより モニタ コ マン ドモ一 ドに 移り ます. 



MON 



BASIC の コマンド モードより， モニタ コ マン 
ド モードに 移ります. モニタ モードに なると， ブ 
ロン ブト を 表示し， モニタ コマンド 待ちに 

なります. 



モニタ コマンド 表 



コマンド 名 


« HE 


M 


メモリの 内容 を 変 K する 


G 


ffi 定ァ ドレ スに 分岐す る 


「 R 1 


「レジスタの 内容 を ft^. *K もで きる 


D 


^アドレスより 64 バイトの 内容 を 表示 



モニタ モー ドょ り BASIC モ一 ドに: *« るに は， 
STOP. CTRL — C, CTRL — X キ 一を 人力す る 
ことにより， BASIC モードに « ります. 



m m 

メモリの 内容 を 表示 変更し ます. 



M [アドレス] 



アドレス は， 1 〜 4 桁の 16 進数で インプットし 
ます. その アドレスの 内容が 表示され， 入力 待ち 

になります. 内容 を 変更 するとき は， 1〜2 桁の 
16 進数 を インプット します. 変更 しないと き は， 
I RETURN I キーの み を 押す と. 次の アドレス 内 
容を 表示して きます. 
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m d 

指定 アドレスよ り 64 バイ ト 分の 内容 を 表示し ま 
す. 



D [アドレス] 



アドレス は 1 〜4 桁の 16 進数で ィ ンブッ ト しま 
す. 指定 アドレスより 64 バイト 分の 内容 を 表示し 
ます. 

アドレスの 指定 を 省略した 場合 は， 直前に 表示 
された アドレスの 次の アドレスから， 64 バイト 分 
の 内容 を 表示し ます. 

本 D0000 



m g 

指定の ァ ドレス プログラムの 荧行を 移します. 



G [分岐 アドレス】 



分岐 ァ ドレス 1 〜4 桁の 16 進数で ィ ンブッ ト し 
ます. インプット された 数 攸を アドレス として， 
ブ o グラム を 実行し ます. 

S R 

MPU の レジスタの 内容 を 表示し ます. 



R 



MPU の レジスタの 内容 を 表示し， 指定に より 
変更 もで きます. 変 E 方法 は M コマンドと 同じで 

す. 
*R 

CC 84- 
A 00— 
B 44 一 
DP 0O — 
X AASE- 
Y 8B0C- 
U 033A- 
PC AA93- 

* 



0000 
0008 
0010 
0018 
0020 
0028 
0030 
0038 
* 



ァ ドレスの 指定で 16 進数 コー ド 以外の キー をィ 
ン プットす ると， モニタ コマンドに 戻ります. 

M コマンド 使用例 

*M38 *M38 本 M38 

0038 CB- 0038 CB- 0038 

0039 00 - 0039 00-12 0039 
003A 00 - 003A 00-34 003A 
00 3 B 71 - 003B 71 - 003B 
003C CB— 003C CB- 003C 
003D FF- 003D FF - 003D 

M コマンドで ダンプ 39, 3 A を 変お 変更 後 ダンプ 

このような 操作に よって， 機械語の プログラム 
を 作成す る ことができます. 



OOOFOClo 

0006007 0 

0 04407FF 

o- 0- o o o o 9 F 

o o o 2 o CJ o F 

0 007007F 

0004009B 

OOOOOOOC 

OOOOOOC1 

o o o o o 0IU 7 

00 0 00090 

0 0-000000 

o o 2 o o o c o 

o o 2 o 2 o o o 

o o 2 o 9 o 9 ly 

o o 2 o B o o C 



ニニ I I 

B 2 4 1 E LL 
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• キャラクタ コード 表 

• F-BASIC の エラー メッセ 

• 非 漢字 一 K 表 

き JIS 第 I 水準 漢字 一覧表 
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F - BASIC の エラー メ ッ セージ 



エラ一 
コード 

01 
02 
03 

04 

05 
06 



07 
08 
09 
10 

11 
12 
13 



14 

15 

16 
17 
18 
19 
20 

21 

22 
23 
24 
25 
26 



50 
51 



エラーメッセージ 

Next Without For 

Syntax Lrror 

Return Without Gosub 



内 



容 



Out Of 
Illegal Function Call 
Overflow 
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Out Of Memory 
Undefined Line Number 
Subscript Out Of Range 
Duplicate Definition 

Division By Zero 
Illegal Direct 
Type Mismatch 

Out Of String Space 
String Too Long 

String Formula Too Complex 

Can* t Continue 

Undefined User Function 

NO Resume 

Resume without Error 

Unprintable Error 

Missing Operand 
For without Next 
While without Wend 
Wend without While 
Bubble Full 



Bad File Number 
Bad File Mode 



NEXT に 対 あする FOR 文がない. 

コ マン ド または， 文の 書き方 に^ま り が ある • 

GOSUB 文に よって 呼 出されて いないのに， RETURN 
文に 出会った， 

READ 文に よって 统 込むべき データがない • 

閱 おや ステ一 ト メ ン トの 呼び 方に 狭ま りが ある. 

整数 被 または 荚数 fft が， 扦 される 範囲 を こえて いる. 
または 代入され る 数 他が 大きす ぎる- 

慷 のとき ー32768〜32767 の ft 囲に ない. 
実数 值 のとき — 1.70141E 十 3H70141E + 38 の範 



o に 



File Already Open 



メモリ が 足り な く 

指定され た 行 * 号が 定義され ていない， 
K 列の 添字が 0 から 上お の 範 囲に ない. 

同じ 名前の K 列 または， ユーザ 閱数を 2 度 vr はして い 

る. 

除算の 分母が 0 である， 

め: 接モ一 ドで 使えない ステートメント を 用いた. 

変数 または 定数の 気が合わない， 文字と 数^ を 《 算し 

ようと している. 

代入の 左辺と 右辺， 閱 数の 引数の "…- 

文字 領域が 足り なくなった. 

文字 定&か 256 文字 を こえて いる. または 文字 式の 結 
条か 256 文字 以上に なった. 

文字 式が 複維 すぎる- 

CONT コ マン ド による プログラムの 行が できない • 

定« されて いない M 数 を 参照して いる • 
エラ ―处堙 ルーチンに RESUME がない. 

エラーが 起きて いないのに， RESUME 文 を 実行し よ 

う と した， 

エラ一 メッセージの 定義され ていない エラ一を 出 そ う 

と した. 

必餮な オペ ラン ドが 抜けて いる. 

FOR〜NEXT の纣応 が 正し く ない. 

WHILE 文に 対応す る WEND 文がない， 

WEND 文に 対応す る WHILE 文がない. 

バブル カセッ ト がいつ ばいで あり， データの 登録が で 
きない. 

ファイル * 号が JR つてい る. 

入力 モードで オーブンした ファイル 番号に W して 出力 
しょうと した • または， 出力 モードで オーブンした フ 
アイ ル 番号から 入力しょう と した. 

ファイル を 二重に オーブンしょう とした. 
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I ラー 
コード 


± フー, ッ でーン 


rfa oto 
内 g 


53 


Device I/O Error 


使用した デ バイ スに 入出力 エラーが 発生した， 


54 


Input Past End 


ファイルの 全ての データ を 统んだ 後に， INPUT 文 を 






実行した. 


55 


Bad File Descriptor 


ファイル ディ スク リブ タの記 if に^りが ある. 


56 


Direct Statement In File 


アスキー 形式の プログラム ファイル 中に， E 接 ステ一 






トメ ント があった. 


57 


File Not Open 


ファイルが オーブンされ ていない， 


58 


Bad Data In File 


フ アイ ル 上の データの 形式が 間 遠 つてい る， 


59 


Device In Use 


使用 中の デバ ィ ス に対して. 再 * オーブン しょうと し 
た. 


60 


Device Unavailable 


I/O デ パイ スが 入出力 可能な 状 fl にない 


61 1 




入出力 バッ ファが オーバ一 フローした. 


62 


Protected Program 


II されて いる プロ グラム （- 倉 i 人み ^Jri^ o > 

*^*^、*l、， ^ f ^- / /お i、 ひ V>iT 一て， J ゎク C 






し た 


63 


b ile Not h ound 


さ *i /• フ t ィ クレ么 y>( y a* t> 


64 


File Already Exists 


Ifi* ？れた フ， イク レ么ほ +て' に 左 itl ザ L 、久 


65 


Directory Full 


j レク トリ ミ fiWy)(t、 ^ if し、 n 敏ャ 、れつ， ス 'し 

， n ' z 「 つ 1凑 * 'レ の'/, ' 一よ / 7 つ, レ 






の SS* がで きない. 


66 


Too Many Open Disk Files 


確保され ている フ T ィ ルの 俾&を こえて オーブン しょ 






うとした. 


67 


Disk Full 


ディスク が v 、つばいで あり ， データの がで * ない 


68 


Field Overflow 


フィールドの 長さ 力 《 256 パイ トを こ/てい^ 


69 


String Not Fielded 


Field 文で 直 首され た 文字 変 & 以外の 変 &に LSET 






RSET を 用いて 代人しょう と している. 


70 


bad Kecord Number 


栴定 された レコード 番号 は 存在し ない， 


71 


Bad File Structure 


ファイルの 構成に » りが ある， 


72 


Drive Not Ready 


指定され た ドライ ブ番サ は Ready 状 » に はない. 


73 


Disk Write Protected | 


Disk が 害 込み 保護され ている. 



備考： エラ一 コート '65〜73 は， Disk に M する エラーメッセージです 
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非 漢字 一 II 表 

コード は 全て 16 進 形式 




0 i 23456789ABCDEF 

212X 。 ， •：；？！、、。'、•• 




213X " 、、'、、'//仝々 卢 〇 

214X 

215X { | 

216X + = 
217X $ * 
222X ♦ 

例えば， ％ の コード は 2173 と ift みます. 'お K の 使 
用に は をつ けて， r &H2173」 とします 



0 I 23456789ABCDEF 

0123456789 
234X ABCDEFGHIJKLMNO 
235X PQRSTUVWXYZ 
236X abcdefghijklmno 
237X pqrstuvwxyz 



0 I 23456789ABCDEF 

242X ああい レ、 う う ええお おか が き ぎ く 
243X ぐけ げこ ごさ ざし じすず せぜそ ぞ た 
244X だ ちぢつ つづて でと ど なにぬ ねの は 
245 X ば ぱ ひ び ぴ ふ ぶ ぷ へべ ぺ ほ ぼぼ まみ 
246X むめ もや やゆ ゆよ よらり るれ ろ わ わ 
247X ゐゑ をん 



] X ¥ 

土。 C ◊ = 

] I " ©1 

} … 〇 一 

{ 1半 ★ | 

， J 8 @ ► 

： > VII & ▲ 

I > < % ■ 

= < ネ £ □ 



英 • 数字 



ひらがな 
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0 




2 


3 


口 文 


272X 




A 


B 


B 


シ 


273X 


0 


n 


P 


C 


ァ字 


274X 


K) 










275X 




a 


6 


B 




276X 


0 


n 


P 


C 




277X 


K) 









4 


5 


6 


7 


8 


9 


ABC 


D 


E 


厂 


R 


E 


E 


>K 


3 


M ft K 


Jl 


M 


丁 


y 


<t> 


X 


U 


M 


UJ LU Td 


bl 


b 


r 


A 


e 


e 


>K 


3 


M M K 


j\ 


M 


T 


y 




X 


U 


M 


in m -b 


bi 


b 



0 I 23456789ABCDEF 

252X ァ アイ ィ ゥゥ ェェォ ォカガ キギク 
253X グ ケゲコ ゴ サザシ ジ スズセ ゼ ソ 
254X ダ チ ヂ ッ ッ ヅ テ デ ト ドナ ニヌネ 
255X パ、 ハ。 ヒ ビピフ ブ プ へべ ぺ ホ ボ ポ マ ミ 
256X ム メモ ャャュ ュョ ョ ラリノ レレ ロワ ヮ 
257X ヰェヲ ンヴカ ケ 



0 I 23456789ABCDEF 

262X ABr 厶 EZHG) I K A M N H 0 

263X nPSTTOX^n 

264X a/3r^e^rieLKXfxv$o 

265X nparv<t>x^^> 



カタ カナ 



文 字 

ギリシャ 
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JIS 第 1 水準 漢字 一 K 表 



コー ドは 全て 16 進 形式 



O I 23456789ABCDEF 

H 302X 亜 啞娃阿 哀愛挨 给逢葵 茜 槺悪握 渥 
303X 旭 葦 芦 縿梓圧 斡 扱 宛 姐 虻 飴 絢 綾 鮎 或 
304X 粟 袷 安 庵 按暗案 闇 鞍 杏 

(W えば. 安の コード は 3042 と » みます. * 際の 便 用に は *&H， を つけて， r &H3042」 とします） 



0 



23456789 



304X 
305X 
306X 



312X 



A B C D E F 

以 伊 位 依 偉 囲 
夷 委威尉 惟 意 慰 易椅為 畏異移 維緯胃 
萎 衣 謂 違 遺 医 井 亥 域 育 郁 磯一 查溢逸 
稲 茨 芋 鰯 允 印 咽 員 因 姻引飲 淫胤蔭 

吋 




0 



2 3 4 5 



回 312X 
313X 
314X 



6789ABCDEF 

右 宇 烏 羽 迂雨卯 鵜 窺 丑 
碓臼渦 嘘 唄 餺蔚鳗 姥厩浦 瓜 閏嗶云 運 




314X 
315X 
316X 
317X 



O I 23456789ABCDEF 

荏 餌 釵営嬰 影 映 曳栄永 泳 洩瑛盈 穎 
穎 英衛詠 銳液疫 益 駅 悦謁越 閲檟厭 「リ 
園 堰奄宴 延怨掩 援沿演 炎焰煙 燕猿緣 
艷苑菌 遠 鉛 紫 塩 



团 



317X 
322X 
323X 



0 I 23456789ABCDEF 

於 汚 甥凹央 奥往応 
押 旺横欧 殴 王 翁 襖 鴛鷗黄 岡 沖 荻 億 
屋 憶 臆 桶 牡 乙 俺 卸 恩 温 穏 音 



0 



323X 



23456789ABCDEF 

下 化 仮 何 

次 莨に つづく 
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0123456789ABCDEF 

[*] 324X 伽 価 佳 加 可 嘉夏嫁 家 寡 科 暇 果架歌 河 
325X 火 珂禍禾 稼箇花 苛茄荷 華菓蝦 課嘩貨 
326X 迦過霞 蚊 俄 峨我牙 画 臥 芽蛾賀 雅餓駕 

332X 魁 晦械海 灰 界皆絵 芥蟹開 階 貝 凱 劾 
333X 外 咳 害 崖 慨概涯 碍蓋街 該鎧骸 浬馨蛙 
334X 垣 柿蠣鈎 釗嘛各 廓拡攪 格核殼 獲確稻 
335X 覚角赫 較郭閣 隔革学 岳 楽 額 顎 掛笠樫 

336X 樯梶鳅 潟 割 喝恰括 活渴滑 葛 褐轄且 鰹 
337X 叶 稅 樺 鞑株兜 '« 蒲 釜鎌嚙 鴨 栢茅萱 
342X 粥 刈 3HJ 瓦 乾 侃 冠寒刊 勘勧卷 喚堪姦 

343X 完官宽 千 幹患感 慣憾換 敢柑桓 棺款歓 
344X 汗 漢澗灌 環 甘 監看竿 管 簡緩缶 翰 肝 艦 
345X 莞観諫 貫 還 羝間閑 関 陥 韓館舘 丸 含 岸 
346X 巌玩癌 眼 岩 翫腴雁 頑 顔 願 



0 



23456789 




346X 
347 X 
352X 
353X 
354X 



A B C D E F 

企 伎 危喜器 
基 奇嬉寄 岐希幾 忌 揮 机旗既 期棋棄 
機 帰 毅気汽 畿祈季 稀 紀徽規 記賁起 



356X 
357X 
362X 
363X 
364X 
365X 
366X 



軌輝飢 騎鬼亀 偽 儀 妓宜戯 技 擬欺犠 疑 

祇義蟻 誼 議掬菊 鞠吉吃 喫桔橘 詰砧杵 

黍 却 客 脚 虐逆丘 久仇休 及 吸 宮弓急 救 

朽求汲 泣 灸球究 窮笈級 糾 給 旧 牛 去 居 
巨 拒 拠 挙渠虛 許距鋸 漁禦魚 亨享京 

供 俠僑兇 競 共 凶 協 匡 卿 叫 喬境峡 強 
彊怯恐 恭挾教 橋 況狂狭 矯胸脅 與蒹郷 




仰 凝 堯暁業 局 曲 極 玉 桐杆僅 
勤 均 巾 錦 斤 欣欽琴 禁禽筋 
謹 近 金吟銀 




0 I 23456789ABCDEF 

[2 366X 九倶句 区 狗玖矩 苦 軀駆蚯 

367X 駒 具 愚 虞 喰 空 偶 寓遇隅 串 櫛 釧屑屈 

372X 掘 窟沓靴 轡窪熊 隈籴栗 繰 桑 鍬勲君 
373X 薰訓群 軍 郡 



0 I 23456789ABCDEF 

@ 373X 卦 袈 祁 係 傾 刑 兄 啓 圭珪型 

374X 契 形 径 恵 慶 慧 憩 揭携 敬景桂 渓畦稽 系 
375X 経継槃 1° ト茎荊 蛍 計 詣警軽 頸 鶏 芸迎鲸 
376X 劇 戟擎激 隙 桁 傑 欠 決 潔 穴 結 血 訣月件 
377X 俟倦健 兼 券 剣 喧圈堅 嫌 建 憲懸拳 捲 
382X 検権牽 犬 献研硯 絹 県 肩見缣 賢軒遗 

383X 鍵 険顕験 鹼元原 厳 幻弦减 源 玄 現 絃 舷 
384X 言 諺 限 



O I 23456789ABCDEF 

@] 384X 乎 個 古 呼 固 姑 孤 已庫弧 戸故枯 
385X 湖 狐 糊 袴 股 胡 菰虎誇 跨 鈷雇顧 鼓 五 互 
386X 伍 午 呉 吾 娯後御 悟 梧 檎瑚碁 語 誤護醐 
387X 乞 鯉 交 佼侯候 倖 光 公功 効 勾 厚 口 向 
392X 后 喉 坑垢好 孔孝宏 ェ巧巷 幸 広庚康 
393X 弘 恒慌抗 拘 控攻 昂晃更 杭校梗 構江洪 
394X 浩港溝 甲 皇硬稿 糠 紅 紘絞綱 耕 考肯肱 
395X 腔膏航 荒行 衡講 貢購郊 酵鉱礦 鐧閤降 
396X 項 香 高 鴻剛劫 号 合 壕拷濠 豪 森 麴克刻 
397X 告国穀 酷 鵠黒獄 漉 腰 甑 忽 惚 骨骀込 

3A2X 此頃今 困 坤墾婚 恨 懇昏昆 根 梱混痕 
3A3X 紺艮魂 
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3A3X 
3A4X 
3A5X 
3A6X 
3A7X 
3B2X 
3B3X 
3B4X 



0 I 23456789ABCDEF 

些佐叉 唆 嵯左差 查沙磋 砂 詐 鎖 

裟坐座 挫 債 催 再 最哉塞 妻 宰彩才 採 栽 
歳 済 災采犀 砕 砦 祭 斎 細 菜 裁 載 際 剤 在 

材罪財 冴 坂 阪堺榊 肴 咲 崎 埼硫紫 作 削 
咋搾昨 朔栅窄 策 索 




冊 刷 




三 傘 参 山 惨 撒 散 桟燦珊 産算篥 蚕讃賛 
酸 餐斬暫 残 



0 



23456789ABCDEF 



3B4X 

3B5X 

3B6X 

3B7X 

3C2X 

3C3X 

3C4X 

3C5X 

3C6X 

3C7X 

3D2X 

3D3X 

3D4X 

3D5X 

3D6X 

3D7X 

3E2X 

3E3X 

3E4X 

3E5X 



仕 仔 伺 使 刺 司 史嗣四 士 始 
姉 姿 子 屍 市 師志思 指 支 孜斯施 旨 枝 止 
死 氏 獅 祉 私 糸 紙 紫 肢脂至 視 詞 詩 試 誌 
諮 資賜雌 飼 歯 事 似 侍 児 字 寺 慈 持 時 

次 溢 治 爾璽痔 磁示而 耳自蒔 辞汐鹿 
式 識嗚竺 軸 宍举七 叱 執 失 嫉室悉 湿 漆 
疾 質実 都篠^ 柴芝^ 蘂縞舍 写 射捨赦 
斜煮社 紗者謝 車 遮 蛇 邪 借 勺 尺 杓灼爵 
酌 釈錫若 寂弱惹 主取 守 手 朱 殊狩珠 種 
腫 趣 酒 首 儒 受呪寿 授樹綬 需囚収 周 

宗 就 州 修愁 拾洲秀 秋終繍 習 臭舟蒐 
衆 襲 簪蹴輯 週 酋酬集 醜 什住充 十従戎 
柔汁渋 獣 縦 重 銃 叔夙宿 淑祝縮 粛塾熟 
出 術 述俊峻 春 瞬 竣舜駿 准循旬 楣殉淳 
準 潤 盾 純 巡遵醇 順 処初所 暑 曙 渚庶緖 

署書薯 藷諸助 叙 女 序 徐恕鋤 除 傷 償 
勝 匠 升召哨 商 唱嘗奨 妾 娼宵将 小 少 

尚 庄床廒 彰承抄 招 掌 捷昇昌 昭晶松 梢 
樟 樵 沼 消 渉 湘焼焦 照 症 省 硝 礁 样 称 章 

笑 粧紹肖 菖蔣蕉 衝裳訟 証詔詳 象賞醬 

次 ft に つづく 
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3E6X 
3E7X 
3F2X 
3F3X 
3F4X 
3F5X 



因 



3F5X 
3F6X 
3F7X 
402X 



O I 23456789ABCDEF 

鉦 鍾鐘障 鞘 上 丈 丞乗冗 剰 城 場 壤嬢常 
情 擾条杖 浄状畳 穣蒸讓 醸 錠 嘱埴飾 



拭 植殖燭 織 職 色 触 食 蝕 辱 尻 伸 信 侵 
唇 娠寝審 心 憤 振 新 晋森榛 浸 深 申疹真 
神 秦紳臣 芯 薪 親 診 身 辛 進 針 震 人 仁 刃 
塵 壬尋甚 尽腎訊 迅陣靱 



0 I 23456789ABCD 

笥詖須 酢 

返 吹垂 

瑞髄崇 嵩 数 枢趨雛 据杉檔 
澄 摺 寸 



E F 





402 X 
403X 
404X 
405 X 
406X 
407 X 
412X 
413X 



0 I 23456789ABCDEF 

世 瀬 畝 是凄制 勢 姓 征性成 政 
整 星 晴棲栖 正 清 牲生盛 精 聖声製 西 誠 

石 積 籍績脊 責赤跡 蹟碩切 拙 接 摂折設 
窃節説 雪 絶 舌 蟬仙先 千 占 宣専尖 川 戦 
扇 撰 栓栴泉 浅 洗 染潜煎 煽 旋穿箭 線 

繊羨腺 舛船薦 詮賤践 選遷銭 銑閃鮮 
前 善漸然 




0 



413X 
414X 
415X 
416X 
417X 
422X 
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噌塑蛆 措 曾曽楚 
狙 疏疎礎 袓租粗 素 組 蘇 訴阻遡 鼠 僧 創 
双 叢 倉 喪 壮奏爽 宋層匝 惣想捜 掃挿搔 




草荘 



臓 蔵 贈 造 促 側 則 即 息 



捉 束 測 足 速 俗 

次 に つづく 
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0 423X 属賊族 続 卒袖其 揃 存孫尊 損 村 遜 



0 
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423X 
424X 
425X 
426X 
427X 
432X 
433X 
434X 



他 多 

太 汰詫唾 堕妥惰 打柁舵 楕陀駄 驟体堆 
対 耐 岱带待 怠 態 戴 替泰滞 胎腿苔 袋 貸 
退 逮隊黛 鲷代台 大第醍 題魔淹 瀧卓啄 
宅 托択拓 沢 濯 琢託鐸 濁 諾茸胍 蛸 只 
叩 但達辰 奪 脱 巽 竪迪棚 谷 狸 鳕樽誰 

胆蛋誕 鍛団壇 弾 





434X 
435X 
436X 
437X 
442X 
443 X 
444X 



0 



23456789ABCDEF 



値 知 地 

弛 恥智池 痴稚置 致蜘遅 馳築畜 竹筑番 
逐秩窒 茶 嫡着中 仲 宙忠抽 昼 柱 注 虫お 
主 酎 铸駐樗 潴猪苧 著 貯丁兆 调喋寵 
帖帳庁 弔 張彫徴 懲挑暢 朝潮 牒町眺 
聴 脹腸蝶 調 諜超跳 铫長頂 鳥 勅 涉直朕 
沈 珍 貨鎮陳 



\^yj 444 X 
445 X 
446X 



0 



23456789AB 




槻佃漬 柘辻蔦 綴 鍔 椿 潰坪壺 



F 摑 

E 姆 

D 塚 

C 通 



吊 

爪 





ゾ 




勺 

0 



51 453X 
454X 



0 I 23456789ABCDEF 

徹撒轍 迭鉄典 塡天展 店 添纒甜 貼転顚 
点 伝 殿 澱田電 
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E 兎 吐 堵塗妬 屠 徒 斗杜渡 

455X 登 菟賭途 都 鍍砥礪 努度土 奴 怒 倒 党 冬 

456X 凍 刀 唐 塔 塘套宕 島嶋悼 投搭東 桃 檣 棟 

457X 盗 淘湯濤 灯 燈当痘 禱等答 筒 糖統到 

462 X 董蕩藤 討 賸豆踏 逃 透 镫陶頭 騰闘働 

463 X 動 同 堂 導 憧撞洞 曈童胴 萄 道 銅 畔 鴇 匿 

得 徳濱特 督禿篤 毒 独 読 栃橡凸 突 椴 届 
«>5X ^ 苫寅酉 瀞 噸 屯 惇 敦沌豚 遁頓呑 曇 鈍 



O I 23456789ABCDEF 

H 466X 奈 那 内 乍 風 薙謎灘 捺鍋橘 馴繩啜 南 楠 
467X 軟難汝 
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回 


467 X 


ニ尼武 邇匂賑 肉虹廿 日 乳 入 




472X 


如 尿 韮 任 妊忍認 






0 1 23456789ABCDEF 




472X 


濡 
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a 


472X 


禰 祢 寧 葱 猫 熱 年 




473X 


念 捻 撚燃粘 . 
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[7] 473X 乃廼 之埜囊 悩濃納 能 脳 膿 

474X 農硯蚤 



O I 23456789ABCDEF 

0 474X 巴 把 播覇杷 波 派 琶破婆 罵芭馬 

475X 俳 廃 抨 排 敗 杯 盃牌背 肺 輩 配 倍 培媒梅 
476X 楳煤狽 買 壳賠陪 這 蠅秤矧 萩 伯 剝 博 拍 
477X 柏 泊 白 箔粕舶 薄 迫 曝 漠爆縛 莫駁麦 
482X 函箱裕 箸 肇答爐 幡肌畑 畠 八 鉢潑発 
483X 醱髮伐 罰 抜 筏 閥 鳩 噺墒蛤 隼 伴 判 半 反 
484X 叛帆搬 斑 板 氾汎版 犯 班畔繁 般藩販 範 
485X 釆煩頒 飯 挽 晚番盤 磐蕃蛮 



0 I 23456789ABCDt.F 

g] 485X 匪 卑否妃 庇 
486X 彼 悲 疏: 批 披 斐比泌 疲皮碑 秘 緋罷肥 被 
487 X 誹 费避非 飛 樋 簸備尾 微枇毘 琵眉美 
492X 鼻 柊 稗 匹 疋髭彦 膝菱肘 弼 必 畢筆逼 
493X 檜 姫 嫒紐百 謬 俵 彪標氷 漂 瓢票表 評 豹 
494X 廟描病 秒 苗錨鍈 蒜蛭鳍 品 彬 斌浜瀕 貧 
495 X 賓頻敏 瓶 
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\y] 495X 不付埠 夫婦 富 冨布府 怖扶敷 

496X 斧 普 浮 父 符腐虜 芙譜負 賦赴阜 附侮撫 
497X 武舞葡 蕪 部 封 楓風葺 薛伏副 復幅服 
4A2X 福 腹 複覆淵 弗 払 沸 仏 物鲋分 吻噴墳 
4A3X 憒扮焚 奮 粉 糞 紛雰文 聞 
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[•t] 4B6X 
4B7X 



4C2X 



0 



23456789ABCDEF 



摩 磨 魔 麻 埋妹昧 枚 毎 哩檳幕 膜 枕鲔征 
锊桝亦 俣 又 抹末沫 迄 儘 繭 麿 万悛満 
漫蔓 



O I 23456789ABCDEF 

H 4C2X 味 未 魅 巳 箕岬密 蜜 湊蓑稔 脈 妙 

4C3X 粍 民 眠 
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0 4C3X 

4C4X 明 盟迷銘 鳴 姪 牝滅免 棉綿緬 S 



冥 名ん 



ロ卩 
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g 4A3X 丙 併 兵 塀幣平 

4A4X 弊 柄 並 蔽閉陛 米 頁 僻 壁 癖 碧 別 瞥蔑篦 
4A5X 偏 変 片篇編 辺 返 遍便勉 娩弁鞭 



0 12 3 4 5 

闹 4A5X 

4A6X 圃捕歩 甫補輔 
4A7X 俸 包 呆報奉 宝 

4B2X 法 泡 烹砲縫 胞芳萌 蓬 蜂 褒訪豊 邦 鋒 
4B3X 飽鳳鵬 乏亡傍 剖 坊妨帽 忘 忙 房 暴 望 某 
4B4X 棒 冒 紡 肪膨謀 貌貿鋅 防 吠 頰北僕 卜 墨 
4B5X 撲朴牧 睦穆釦 勃 没 殆堀幌 奔本翻 凡 盆 



0 




E 

D 

C 

B 

A 

9 

8 

7 

5 



舗菩朋 

保簿方 

母 




暮 



戊 抱 

慕 庖 

墓 崩 

募 峯 

苗-い 条 



179 




4C4X 

4C5X 
4C6X 



O I 23456789ABCDEF 

摸模 

茂 妄孟毛 猛盲網 耗蒙儲 木 黙 目 奎勿餅 
尤戻籾 貰問悶 紋 門 匁 



0 I 23456789ABCDEF 

H 4C6X 也 冶 夜 爺耶野 弥 

4C7X 矢 厄 役 約 薬 訳 躍 靖 柳 藪 m 



O I 23456789ABCDEF 

\^\ 4C7X 愉 愈 油 癒 

諭 輸唯佑 優 勇 友 宥幽悠 憂 揖有柚 湧 
4D3X 涌 猶猷由 祐裕誘 遊邑郵 雄融夕 




4D3X 
4D4X 
4D5X 
4D6X 



0 



23456789ABCDEF 

予余与 





熔用 
沃浴翌 翼 淀 



遙陽^ 





4D6X 
4D7X 



0 I 23456789ABCDEF 

羅螺 裸来萊 頼雷洛 絡落酪 
乱 卵 嵐 欄濫藍 蘭 覧 



4D7X 
4E2X 
4E3X 
4E4X 



O I 23456789ABCDEF 

利 吏 履 李 梨理璃 
痢 裏裡里 離陸 律 率 立 萚掠略 劉 流 溜 

琉留硫 粒 隆竜龍 侶 慮 旅 虜了亮 僚両凌 
寮 料 梁 



稜糧良 諒遼量 陵領カ 




4E5X 
4E6X 



0 I 23456789ABCDEF 

瑠 塁涙累 

類 



回 4E6X 
4E7X 




4F2X 



0 I 23456789ABCDE 

令 伶 例 冷 励 嶺怜玲 礼 苓鈴隸 零 
齢 解歷列 劣 烈 
蓮連鍊 



F 





0 I 23456789ABCDEF 

@ 4F2X 呂魯櫓 炉賂路 露労婁 廊弄朗 

4F3X 楼 榔 浪漏牢 狼籠老 聲 蠟郎六 麓禄肋 録 
4F4X 論 



O I 23456789ABCDEF 

[7] 4F4X 倭 和 話 歪 賄 脇 惑 枠 紫 亙 亘鰐詫 II 蕨 
4F5X 椀 湾 碗 腕 
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A ABS 51 
AND 82 
ASC 103 
AUTO 20 

B BASIC 12 
BEEP 91 
bit 7 
BS 53 
BUB 48 
BUBINI 15^ 
Byte 7 

C CAS 48 
CDB し 51 
CHR $ 96 
CINT 51 
CIRCLE 70 
CLEAR /29 
CLOSE 139、 157 
CIS 26 
CO し OR 58 
COM 48 
COMn 156 

COM (n) ON/OFF/STOP 158 
CONNECT 68 

CONSOLE 56 
cos 52 
CRT 11 
CSNG 5/ 
CSRLIN 130 
CTRL 23, 53 

D D 163 

DATE U6 
DATE $ 116 
DEF 89 
DEF FN 85 



DEF USR 161 
DEL 23 
DELETE 91 
DIM 92 
DSKINI 1S4 
DSKI $ 149 
DSKO $ 149 

E EDIT 53 
EL 53 
END 44 
EOF 145 
EQV 84 
ERR/ER し 125 
ERROR ！ 25 
EXEC Wl 
EXP 50 

F FIELD 147 

file descripter 4S 
FILES 139 
FIX 51 

FM-7 2 

FM-8 2 
FM-11 2 

FOR〜NEXT 40 
FRE 129 

G G 163 

GCURSOR 72 
GET 149 
GET @ 74 
GOSUB 86 
GOSUB 行 番号 121 
GOTO 38 

H HARDC 53 
HEX $ 97 



IC 6 

IF 〜丁 HEN〜ELSE 44 

IMP 84 

INKEY $ 45 

INPUT 36 

INPUT # 144、 157 

INS 23 

INSTR 103 

INT 51 

INTERVAL OFF ！ 20 
INTERVAL ON 120 
INTERVAL STOP 120 

KEY 31 

KEY (n) OFF 72/ 
KEY (n) ON JZT 
KEY (n) STOP 121 
KILL 755 
KYBD 48 

LEFT $ 98 

し EN 702 

LINE @ G6 

LINE INPUT 37 

LINE INPUT # 144、 157 

LIST 刃， 158 

LOAD? 49, 155 

LOADM 162 

LOC 149 

LOCATE 27 

し OF 149 

LOG 50 

LPT 48 

し SET 148 

し SI 6 

M 162 
MERGE 154 



MID 99 
MKD $ 148 
MKI $ 148 
MKS $ 14S 
MOM 162 
MOTOR /5 

N NAME 755 
nest 42 
NEW 21 
NOT 83 

O OCT $ 97 

ON COM (n) GOSUB 158 

ON ERROR GOTO 125 

ON〜GOSUB 88 

ON -GOTO 39 

ON INTERVAL GOSUB 120 

ON KEY (n) 121 

ON TIME GOSUB 118 

OPEN 138, 156 

OPEN R 146 

OR 83 

P PAINT 72 
PEEK 159 
PF M 
PLAY 1Q9 
POKE 159 
POINT 130 
POS 

PRINT 18 
PRINT (& 105 
PRINT USING 122 
PRINT # 757 
PRESET &5 
PSET 64 
PUT 747 



PUT @ 78 

R R 163 

RANDOMIZE 
READ〜DATA 
REM 47 
RENUM 90 
RESUME 125 
RIGHT $ 100 
RND 50, 127 
RSET 148 
RUN 15 

S SAVE 49 

SAVEM 162 
SCREEN 61 
SCRN 48 
SGN 50 
SHIFT 23 
SIN 51 
sin 52 
SKIPF 155 

SOUND 114 
SPACE $ 100 
SPC 104 
SQR 50 
STEP 40 



STR $ 100 
STRING $ Wl 
SWAP 95 
SYMBOL $8 

T TAB 53, 104 
tan 52 

TERM 77, は 9 
TIME //ft 118 
TIME $ 116 
TIME OFF 118 
TIME ON 118 
TIME STOP 118 
TROFF 90 
TRON 90 

U UNLIST 90 
USR 16! 

V VAL 100 

VARPTR 159 

W WHILE〜WEND 46 
WIDTH 54 

X XOR 84 



184 



(メ モ） 



(メ モ） 



(メ モ） 



(メ モ） 
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